home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #4
/
Commodore_Disk_User_Vol.1_4_1988_-.d64
/
tokeniser
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
59 lines
10 rem ****************************
20 rem ** basitok ver1.0 **
30 rem ** by p.f.hayes (c) 1988 **
40 rem ****************************
50 print"[147][158]*****************basitok****************[154]"
60 print" this program -reads a sequential basic"
70 print" file listing from disc or cassette and"
80 print" creates a basic program file which can"
90 print" subsequently be saved or executed."
100 print" (max size sequential file is 36k)"
110 print" press <return> to continue"
120 getf$:iff$=""then120
130 print"[147]":print" enter sequential file specifications"
140 print" [163][163][163][163][163][160][163][163][163][163][163][163][163][163][163][163] [163][163][163][163][160][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
150 print" input sequential file name"
160 print" (maximum 16 characters)"
170 input" file name =";n$:if n$="" then 170
180 input" disk or cassette (d or c) : d[157][157][157]";d$:if d$="" then 180
190 input" is above correct (y or n) : y[157][157][157]";r$
195 if r$<>"y" and r$<>"n" then 195
200 ifr$="n"then130
210 ifd$="c"thende=1:sa=0
220 ifd$="d"thende=8:sa=2
230 ad=49152:ln=310
240 readva:ifva<256thenpokead,va:su=su+va:ad=ad+1:goto240
250 ifsu=vathensu=0:ln=ln+10:goto240
260 ifva=999then280
270 print"[147] data error in line"ln:stop
280 le=len(n$):poke49162,le:poke49155,de:poke49157,sa
290 forj=1tole:t$=mid$(n$,j,1):t=asc(t$):poke49376+j,t:nextj
300 sys49152:new:clr:end
310 data169,2,162,8,160,2,32,186,721
320 data255,169,7,162,225,160,192,32,1202
330 data189,255,32,192,255,162,2,32,1119
340 data198,255,169,0,133,251,169,17,1192
350 data133,252,160,0,132,253,32,183,1145
360 data255,41,100,208,17,32,207,255,1115
370 data164,253,145,251,200,192,0,208,1413
380 data235,230,252,76,36,192,169,13,1203
390 data145,251,200,192,0,208,2,230,1228
400 data252,169,10,145,251,32,204,255,1318
410 data169,2,32,195,255,169,0,168,990
420 data133,251,169,17,133,252,132,253,1340
430 data169,147,32,210,255,164,253,177,1407
440 data251,201,13,208,16,200,192,0,1081
450 data208,2,230,252,169,10,209,251,1331
460 data240,77,76,142,192,200,192,0,1119
470 data208,2,230,252,132,253,32,210,1319
480 data255,164,253,76,103,192,132,253,1428
490 data169,10,133,198,169,19,141,119,958
500 data2,169,13,141,120,2,169,83,699
510 data141,121,2,169,121,141,122,2,819
520 data169,52,141,123,2,169,57,141,854
530 data124,2,169,50,141,125,2,169,782
540 data52,141,126,2,169,56,141,127,814
550 data2,169,13,141,128,2,96,169,720
560 data2,133,198,169,19,141,119,2,783
570 data169,13,141,120,2,96,541,999