home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #4 / Commodore_Disk_User_Vol.3_4_1990_-.d64 / prob1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  33 lines
  1. 10 rem     auto program loader for
  2. 20 rem     use with hi-res demo kit
  3. 30 rem     by neil higgins.
  4. 40 rem
  5. 50 rem  this program written by j.finch
  6. 60 rem
  7. 70 rem  (c) commodore disk user 1990
  8. 80 rem
  9. 90 print"[147]enter name of hi-res demo file":input":";a1$
  10. 100 print"and name of basic program to load       once spacebar is pressed"
  11. 110 input":";a2$:a1=len(a1$):a2=len(a2$)
  12. 120 ifa1=0 or a1>16 or a2=0 or a2>16 then run
  13. 130 print"please wait...":fori=0to195:reada:poke49152+i,a:next
  14. 140 fori=1toa1:poke49179+i,asc(mid$(a1$,i,1)):next
  15. 150 fori=1toa2:poke49195+i,asc(mid$(a2$,i,1)):next
  16. 160 poke49212,a1:poke49213,a2:fori=0to61:reada:poke49348+i,a:next
  17. 170 print"press any key to save new demo loader:"
  18. 180 print"each time you wish to load the demo that";
  19. 190 print"you have chosen type:":print"load"chr$(34)"demo loader"chr$(34)",8"
  20. 195 poke198,0:wait198,1:poke198,0:sys49348
  21. 200 data11,8,198,7,158,50,49,57,54,,,,162,,189,29,8,157,,192,232,224,119
  22. 205 data208,245,76,34,192,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  23. 210 data169,1,162,8,160,255,32,186,255,173,32,192,162,0,160,192,32,189,255,169
  24. 215 data0,32,213,255,32,32,8,169,1,162,8,160,255,32,186,255,173,33,192,162,16
  25. 220 data160,192,32,189,255,169,0,162,1,160,8,32,213,255,169,147,162,82,160,85
  26. 225 data141,119,2,142,120,2,140,121,2,169,78,162,13,141,122,2,142,123,2,169,5
  27. 230 data133,198,96,173,33,208,141,134,2,169,83,162,89,160,50,141,119,2,142,120,2
  28. 235 data141,121,2,140,122,2,160,48,162,54,169,49,140,123,2,142,124,2,141,125,2
  29. 240 data169,13,141,126,2,169,8,133,198,96
  30. 250 data162,0,189,0,192,157,1,8,232,224,197,208,245,169,1,162,8,160,255,32,186
  31. 255 data255,169,11,162,247,160,192,32,189,255,169,1,133,251,169,8,133,252,162
  32. 260 data198,160,8,169,251,32,216,255,76,226,252,68,69,77,79,32,76,79,65,68,69,82
  33.