home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9405a.d64
/
list
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
743b
|
41 lines
10 PRINT"[147]LISTINGS IN EINEM PROGRAMM?
20 [141]400
30 [153]"DAS GEHT AUCH INCLOSEBASIC:
35 GOSUB400
40 X$="LIST 49-85":GOSUB200:PRINT
46 :
47 :
48 :
49 REM WARMSTARTZEIGER AUF RETURN
50 :POKE768,212:POKE769,168
58 REM LIST MIT GOSUB AUFRUFEN
59 REM UND DANACH UEBERSPRINGEN
60 :GOSUB70:GOTO80
66 REM INTERPRETERAUFRUF MIT LIST-TOKEN
67 REM DANACH AUTOMATISCH RETURN
68 REM ,0 FUER GESAMTES LISTING
70 :POKE780,27:SYS42999,49-85
78 REM ZEIGER SOFORT! WIEDERHERSTELLEN
80 :POKE768,139:POKE769,227
87 :
88 :
89 :
90 GOSUB400
100 PRINT:PRINT"SEHEN SIE ?
110 [128]
199 :
200 Z[178]4:[141]300
210 [129]J[178]1[164][195](X$)
220 [153]" CMD";:[129]P[178]1[164]5:[130]
230 [153][202](X$,J,1);" WAITCMD";
240 [129]P[178]0[164]100[170]300[172][187](0):[130]P,J
250 [153]" CMD";:Z[178]3:[141]300
260 [142]
299 :
300 [129]I[178]1[164]Z:[153]" CMD";
310 [129]P[178]0[164]249:[130]
320 [153]" WAITCMD";:[129]P[178]0[164]249:[130]P,I
330 [153]" CMD";:[142]
399 :
400 [129]I[178]0[164]1499:[130]:[142]