home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  53 lines
  1. 2 ma=52200:ifs=1goto5
  2. 3 dimnt(12,3):s=1:poke32775,0
  3. 4 rem star main disk
  4. 5 ifs%>.then11
  5. 6 poke53281,0:poke53280,0:gosub2000
  6. 7 print""spc(9)"[208][148][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
  7. 8 printchr$(8)"        [201]f you have a [202]oystick,"
  8. 9 print"     plug it into [195]ontrol [208]ort [212]wo."
  9. 10 ifs%=0thens%=1:load"red.title.shp",8,1
  10. 11 ifs%=1thens%=2
  11. 12 ifs%=2thens%=3
  12. 13 ifs%=3thens%=4:load"unpacker",8,1
  13. 16 forx=1024to1034:reada:pokex+54272,0:pokex,a:next:sys1024
  14. 17 data169,228,141,8,3,169,167,141,9,3,96
  15. 20 :
  16. 22 :
  17. 190 :
  18. 200 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  19. 205 sys51456:sys51459
  20. 210 gosub3000
  21. 600 wait198,1
  22. 602 sys51459:pokev+21,.:poke808,237
  23. 1000 pokev+33,.:pokev+31,.
  24. 1190 print"[147]     [204]aunching [212]able of [195]ontents...";
  25. 1200 s=54272:fori=0to24:pokes+i,0:next
  26. 1205 pokes+5,240:pokes+6,253:pokes,0:pokes+1,4:pokes+23,241:pokes+24,31
  27. 1210 pokes+4,129:poke317,1
  28. 1215 poke318,0:rem set hide flag to zero
  29. 1220 load"hello connect",8
  30. 1240 end
  31. 2000 print"[147]"
  32. 2005 printspc(10)"[219][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][219]"
  33. 2006 printspc(10)"[179] [204] [207][160][193][160][196][160][211][160][212][160][193][160][210] [171]"
  34. 2007 printspc(10)"[219][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][219]"
  35. 2010 return
  36. 2998 rem *** music ***
  37. 3000 s=54272:n=1:fort=54272to54296:poket,0:next
  38. 3010 read nt(n,1),nt(n,2),nt(n,3)
  39. 3020 ifnt(n,1)=0 then 3050
  40. 3030 n=n+1:goto3010
  41. 3050 n=n-1:poke54296,15
  42. 3055 poke54277,73:poke54278,252:poke54275,5
  43. 3060 fort=1ton:ifpeek(198)<>0thent=500:goto3090
  44. 3070 poke54272,nt(t,1):poke54273,nt(t,2):poke54276,65
  45. 3080 fort2=1tont(t,3)*5:nextt2:poke54276,64
  46. 3090 nextt:poke54296,0:return
  47. 3100 data 99,56,40
  48. 3110 data 75,63,50
  49. 3120 data 60,50,50
  50. 3130 data 30,25,60
  51. 3140 data 162,37,225
  52. 3150 data 0,0,0
  53.