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