Random demo
Random game
Random game
  • Entry name:
     Vylet po pameti 
  • Category:
    Programming utilities
  • Publisher/Developer:
    Flop 1
  • Year:
    1986
  • Code:
    Toman Jiri
  • Programming language:
    Atari BASIC
Vylet po pameti Vylet po pameti Vylet po pameti Vylet po pameti Vylet po pameti Vylet po pameti Vylet po pameti Vylet po pameti Vylet po pameti
Listing 1
23310 REM
28000 GRAPHICS 0:​POKE 752,​1:​D=PEEK(560)+256*PEEK(561)+4:​POKE D-1,​71:​POKE D+2,​6
28010 ? "VYLET PO PAMETI":​POSITION 23,​0:​?:​POKE 710,​0
28020 ?:​?:​? " Tento program Vam umozni":​? " prohlizet pomoci Joysticku":​? " celou oblast pameti."
28030 ?:​? " "
28040 ?:​? " ADRESA 0000":​? " ....":​? " ....":​? " FFFF"
28050 ?:​? " ":​? " "
28060 ?:​? " PODROBNEJI-ZMACKNI HELP":​?:​?:​? " "
28070 POKE 752,​1:​POKE 764,​255:​POKE 53279,​7:​POKE 732,​0
28080 IF PEEK(53279)=6 THEN 29000
28090 IF PEEK(732)=17 THEN 30000
28100 GOTO 28080
29000 TRAP 29230
29010 GRAPHICS 0
29012 POKE 732,​0
29020 A=0
29030 IF STRIG(0)=0 THEN GOSUB 29120
29037 IF PEEK(732)=17 THEN 30000
29040 DL=PEEK(560)+256*PEEK(561)
29050 POKE DL+4,​0:​POKE DL+5,​A
29060 REM 
29070 TE=STICK(0)
29080 IF TE=14 THEN A=A-1
29090 IF TE=13 THEN A=A+1
29100 FOR N=1 TO 50:​NEXT N
29110 GOTO 29030
29120 REM 
29130 POKE DL+4,​64:​POKE DL+5,​156
29140 GRAPHICS 18:​COLOR 1:​POSITION 7,​1:​? #6;256*A
29150 POSITION 7,​4:​? #6;256*(A+1):​POSITION 7,​7:​? #6;256*(A+2):​POSITION 7,​10:​? #6;256*(A+3)
29160 IF STICK(0)=14 THEN A=A-1
29170 IF STICK(0)=13 THEN A=A+1
29180 IF STRIG(0)=0 THEN GOTO 29120
29190 GRAPHICS 0
29200 RETURN
29210 STOP
29230 GRAPHICS 18:​COLOR 1:​? #6;" JSI MIMO ROZSAH !!!":​POSITION 0,​5:​? #6;" "
29240 IF PEEK(53279)=6 THEN 29000
29250 GOTO 29240
29260 REM 
29270 REM 
29280 REM 
29290 REM 
29300 REM 
29310 REM
30000 GRAPHICS 0:​REM 
30010 ? "Tento program umoznuje nahlednout do":​? "op.systemu ATARI 800 XL a zobrazovat"
30020 ? "znakove celou pamet 0 - 65535.":​?
30030 ? "Pomoci Joysticku se lze prochazet po":​? "pameti smerem k 0000 nebo FFFF(H)":​?
30040 ? ",​ objevi se":​? "misto znakoveho vypisu pocatecni"
30050 ? "adresy jednotlivych bloku."
30060 ? "":​? "":​?
30070 ? "Vypisy adres pri drzeni START tl.":​? "na JOYSTICKU jsou umisteny shruba"
30080 ? ""
30082 POKE 752,​1:​?:​?:​?:​? "** STISKNI NEKTEROU KLAVESU **"
30085 IF PEEK(764)=255 THEN 30085
30090 ?:​? "(napr.):​ "
30100 ? " Zobrazovani pametovych mist pri":​? "zpustenem programu. Napr.na bloku"
30110 ? "s adr.0 je u znaku 18,​19,​20 videt":​? "cinnost interniho casovace."
30120 ? "Ten zustava v cinnosti i po stisku":​? "tlacitka BREAK."
30130 ? "Stiskem BREAK lze zastavit na":​? "kteremkoli miste pameti a z klaves-"
30140 ? "nice zadavat Basicove prikazy."
30150 ? "Ty se nam samozrejme neobjevuji na":​? "obrazovce a proto je treba pri mani-"
30160 ? "pulaci davat pozor."
30170 ? "Napr.na adresach D000 az D7FF lze":​? "videt cinnost GTIA,​POKEY,​PIA,​ANTIC."
30180 ? "Na vypisu lze i pozorovat cinnost":​? "mapovaciho systemu ATARI 800 XL."
30190 ? "":​? "":​? ""
30195 ?:​? "** STISKNI START NEBO HELP **"
30200 POKE 732,​0:​POKE 53279,​7:​POKE 764,​255
30210 IF PEEK(732)=17 THEN 30000
30220 IF PEEK(53279)=6 THEN 29000
30230 GOTO 30210
30240 END	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!