home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
gr2001.beftab
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
816b
|
28 lines
10 :
20 OPEN 4,4
30 PR$="----------------------------------------":DP$=CHR$(16)
500 TB=50594:TP=TB
520 JT=50512
600 GOSUB 6000
1000 TK=PEEK(TB+Z):Z=Z+1:IFTK=0THEN3000
1100 IF TK AND 128 THEN TK = TK AND 127:GOTO 2000
1120 TK$=TK$+CHR$(TK)
1200 GOTO 1000
2000 TK$=TK$+CHR$(TK)
2100 JU=1+PEEK(JT+ZJ)+256*PEEK(ZJ+JT+1):ZJ=ZJ+2:
2120 D=JU:GOSUB 5000:JU$=DU$
2130 D=TP:GOSUB 5000:TP$=DU$
2200 IF TK$="TEST" OR TK$="CTEST"THENPRINT#4,TK$DP$"12.............":GOTO2500
2250 PRINT#4,TK$DP$"12"JU;"<$"JU$">"DP$ "35 ("TP"$"TP$")":
2500 TK$="":TP=TB+Z:GOTO1000
3000 PRINT#4,PR$PR$:GOSUB6200:PRINT#4:CLOSE4:END
5000 DU$="":FORP=0TO0:D=D/16:S=(D-INT(D))*16:DU$=CHR$(55+S+7*(S<10))+DU$
5010 P=-D:NEXT:RETURN
6000 PRINT#4,"DR. H. DOMES, JOSEF MARX STR. 13, A - 8043 GRAZ, AUSTRIA"
6010 PRINT#4,PR$PR$
6020 PRINT#4,"'GR2001' BEFEHLSTABELLE"
6100 PRINT#4,PR$PR$:PRINT#4,"BEFEHL"," SPRUNGZIEL","[157][157][157]POSITION TOKEN"
6150 PRINT#4,PR$PR$:RETURN
6200 PRINT#4,PR$PR$:PRINT#4,"T A B E L L E 1"
6250 :RETURN