home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11b.d64
/
editor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
88 lines
0 IFPEEK(124)=76THEN:@"Q"
5 IFA=-1THENGOTO1025
10 IFA=0THENA=1:LOAD"SA+LO(53240)",8,1
20 IFA=1THENA=2:LOAD"M^S+E3",8,1
21 IFA=2THENA=3
22 IFA=3THENA=4:LOAD"EDISPRITE",8,1
25 POKE56,60:CLR:GOSUB10000
27 POKE49329,64
30 SYS53240
40 POKE53280,0:POKE53281,0:PRINT"[147]
50 [153]"LOADMENUE:":[151]53269,0
55 [151]53270,200
60 [153]" 1.LADEN"
70 [153]" 2.SPEICHERN"
80 [153]" 3.TESTLAUF"
90 [153]" 4.EDITIEREN"
100 [153]" 5.ECHTLAUF"
105 [153]" 6.PARAMETER"
106 [153]" 7.LOESCHEN"
107 [153]" 8.EINFUEGEN"
109 [153]" 9.ENDE"
110 [133]" WAS WAEHLEN SIE ";A$
120 A[178][197](A$):[139]A[179]1[176]A[177]9[167]50
125 [139]A[178]9[167][128]
130 [145]A[141]1000,2000,3000,4000,5000,6000,7000,8000
140 [137]40
998 [128]
999 :
1000 [143] LADEN
1010 [133]" NAME ";A$:[139]A$[178]""[167][142]
1020 A[178][171]1:[147]A$,8,3
1025 [151]49328,(([194](175)[171]1)[175]252)[170]4:[137]40
1040 [128]
1999 :
2000 [143] SPEICHERN
2010 [133]" NAME ";A$:[139]A$[178]""[167][142]
2020 [153]"LOADP(null)43,0:P(null)44,64:P(null)45,0:P(null)46,";[194](49328)
2030 A[178][194](43):B[178][194](44):C[178][194](45):D[178][194](46)
2040 [153]"SAVE";[199](34);A$;[199](34);",8,1"
2050 [153]"P(null)43,"A":P(null)44,"B":P(null)45,"C":P(null)46,"D":RUN40"
2060 [151]198,3:[151]631,13:[151]632,13:[151]633,13:[128]
2100 :[128]
2999 :
3000 [143] TESTLAUF
3010 A[178][194](49440):[151]49440,1:[151]53269,255
3020 [151]53280,15:[151]53281,15:[153]"LOAD"
3030 [158]49419
3040 [151]53269,0:[151]49440,A:[151]53280,0:[151]53281,0:[153]"LOAD":[142]
3100 [128]
3999 :
4000 [143] EDIT
4010 [133]" BILDNR. ";A$:A[178][197](A$)[171]1:[139]A[179]0[167][142]
4015 A[178]A[172]4[170]64
4020 [139]A[178][177][194](49328)[167]4010
4030 [151]49327,A:[158]49687
4040 [151]53280,0:[151]53281,0:[153]"LOAD":[142]
4100 [128]
4999 :
5000 [143] ECHTLAUF
5010 [151]53281,15:[151]53280,15:[153]"LOAD":[151]53269,255
5020 [158]49419:[137]5020
5100 [128]
5999 :
6000 [143] PARAM
6010 [153]"LOAD VERZOEGERUNG ";[194](49440)
6020 [133]"ON";A$:A[178][197](A$)[175]255
6030 [151]49440,A:[151]49442,255:[139]A[178]0[167][151]49440,1:[151]49442,1
6040 [153]" ENDE ";([194](49328)[171]64)[173]4
6050 [133]"ON";A$:A[178][197](A$):[139]A[178]0[176]A[177]32[167]6050
6060 [151]49328,A[172]4[170]64:[142]
6999 :
7000 [143] LOESCHEN
7010 [153]" BLOCK ";([194](49327)[171]64)[173]4[170]1
7020 [133]"ON";A$:A[178][197](A$)[171]1:[139]A[179]0[167][142]
7025 A[178]A[172]4[170]64:[139]A[177][178][194](49328)[167]7020
7030 [151]49327,A:[158]49969:[142]
7999 :
8000 [143] INST
8010 [153]" BLOCK ";([194](49327)[171]64)[173]4[170]1
8020 [133]"ON";A$:A[178][197](A$)[171]1:[139]A[179]0[167][142]
8025 A[178]A[172]4[170]64:[139]A[177][178][194](49328)[167]8020
8030 [151]49327,A:[158]50036:[142]
8999 :
10000 [151]2040,240:[151]2041,241:[151]2042,242:[151]2043,243:[151]2044,247
10001 [151]2045,244:[151]2046,245:[151]2047,246
10002 [151]53264,0:[129]I[178]53287[164]53287[170]7:[151]I,6 :[130]
10014 [142]