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!
Atari 8-bit Source code
|
|
|
-
Entry name:Tabulka prikazu BASIC
-
Category:Programming utilities
-
Publisher/Developer:Flop 7, Podle Atom
-
Year:1989
Listing 1
5 REM **** PODLE ATOM 11/89 **** 6 REM PRETUKAL ING.J.VACHA,NAMEST N.O. 10 ? CHR$(125):? " ":? 20 ADRESA=42145 30 IF NOT PEEK(ADRESA) THEN 90 40 ? TOKEN;" "; 50 BYTE=PEEK(ADRESA):ADRESA=ADRESA+1 60 IF BYTE<128 THEN ? CHR$(BYTE);:GOTO 50 70 ? CHR$(BYTE-128) 80 ADRESA=ADRESA+2:TOKEN=TOKEN+1:GOTO 30 90 ? "54 (IMPLITED LET)":? "55 ERROR (SYNTAX)":?:? 100 ? " ":? 110 ? "14 ciselna konstanta" 111 ? "15 retezcova konstanta" 112 ? "16, 17 nevyuzito" 120 DIM A$(30) 130 ADRESA=42976:TOKEN=18:A$="" 140 IF NOT PEEK(ADRESA) THEN ?:END 150 ? TOKEN;" ";:IF TOKEN=22 OR TOKEN=29 OR (TOKEN>44 AND TOKEN<48) OR (TOKEN>52 AND TOKEN<61) THEN READ A$ 160 IF TOKEN=23 OR TOKEN=35 OR TOKEN>60 THEN A$="" 170 BYTE=PEEK(ADRESA):ADRESA=ADRESA+1 180 IF BYTE<128 THEN ? CHR$(BYTE);:GOTO 170 190 ? CHR$(BYTE-128);" ";A$ 200 TOKEN=TOKEN+1 210 GOTO 140 220 DATA konec radku 230 DATA ciselne porovnani 240 DATA prirazeni cisla, prirazeni retezce 250 DATA retezcove porovnani 260 DATA zvlastni operatory,zvlastni operatory 270 DATA leva zavorka retezce,leva zavorka pole,leva zavorka DIM pole,funkce leve zavorky 280 DATA leva zavorka DIM retezce,carka v DIM poli
References
Listing downloads
Copyright holder