home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  55 lines
  1. 3 IFS=1THEN5
  2. 4 S=1:LOAD"ROMUSIC",8,1
  3. 5 REM STAR MAIN DISK
  4. 6 POKE53269,.:POKE808,225:IFS%>.THEN11
  5. 7 POKE53281,.:POKE53280,.:PRINT"[147]         [208][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
  6. 8 PRINT"        [201]F YOU HAVE A [202]OYSTICK,"
  7. 9 PRINT"     PLUG IT INTO [195]ONTROL [208]ORT [212]WO."
  8. 10 IFS%=0THENS%=1:LOAD"LOADSTAR.SPR",8,1
  9. 11 IFS%=1THENS%=2:LOAD"MUSIC",8,1
  10. 12 IFS%=2THENS%=3:LOAD"CE3K.M",8,1
  11. 13 POKE49,255:POKE50,47:CLR:POKE51200,.
  12. 15 POKE53281,1:POKE53280,10
  13. 16 FORX=1024TO1034:READA:POKEX,A:NEXT
  14. 17 DATA169,228,141,8,3,169,167,141,9,3,96
  15. 18 SYS1024 :REM  __ WEDGE DEACTIVATOR
  16. 20 FORI=.TO7:READS:POKE2040+I,S:NEXT
  17. 21 DATA192,193,194,195,196,197,194,198
  18. 30 V=53248:O=1:B=255:T=2:SE=V+21:SC=V+39:YD=V+23
  19. 40 POKESE,.:POKEV+29,.:POKEV+23,.:POKEV+16,.
  20. 100 PRINT"[147][142][144]           [169]              [223]
  21. 110 [153]"          STEP      TOANDANDTO      (null)
  22. 120 PRINT"         [169]      [183][184][146][162][162][184][183]      [223]
  23. 130 [153]"        STEP         (null)RIGHT$         (null)
  24. 140 PRINT"       [169]          [221][221]          [223]
  25. 150 [153]"      STEP           /EXP           (null)
  26. 160 PRINT"      [152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  27. 170 [153]
  28. 180 [129]I[178]1[164]1000:[130]:C[178]10
  29. 190 [151]49569,.:[151]49570,112:[158]49152:[129]I[178]1[164]500:[130]
  30. 300 [129]S[178].[164]7:[151]SC[170]S,C:[151]V[170]S[170]S,165:[151]V[170]S[170]S[170]O,114:[151]SE,[194](SE)[176]T[174]S
  31. 305 [135]X,C:[129]I[178]114[164]65[169][171](T[170]T):[151]V[170]S[170]S[170]O,I:[130]
  32. 310 [129]I[178]165[164]X[169][180](X[171]165)[172]T:[151]V[170]S[170]S,I:[130]:[151]SC[170]S,C:[151]53280,C:[130]
  33. 315 [131]74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4
  34. 400 [153]"          (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  35. 410 PRINT"          [221] COPYRIGHT 1985 [221]
  36. 420 [153]"          MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  37. 425 IFPEEK(788)<>49THEN425
  38. 430 PRINT"[145][145][145][145][145][145]          [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  39. 440 [153]"          (null) PUSH SPACE BAR (null)
  40. 450 PRINT"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  41. 455 R[178]V[170]17:C[178]128:[134]C(9):[129]I[178].[164]9:[135]C(I):[130]:[151]V[170]32,.
  42. 456 [131]15,12,11,0,0,11,12,15,1,1
  43. 460 [143]
  44. 465 [151]198,0:[146]198,1:[161]A$
  45. 600 [151]V[170]21,.:[151]808,237
  46. 1000 [153]"LOAD";:[151]V[170]33,.:[151]V[170]31,.
  47. 1190 [153]"LOAD(null)AUNCHING (null)ABLE OF LENONTENTS";
  48. 1200 S[178]54272:[129]I[178]0[164]24:[151]S[170]I,0:[130]
  49. 1205 [151]S[170]5,240:[151]S[170]6,253:[151]S,0:[151]S[170]1,4:[151]S[170]23,241:[151]S[170]24,31
  50. 1210 [151]S[170]4,129
  51. 1215 [151]597,0:[143] SET HIDE FLAG TO ZERO
  52. 1220 [153]"STOPLOAD"[199](34)"HELLO"[199](34)",8":[153]"RUN"
  53. 1230 [151] 631,13:[151]632,13:[151]198,2
  54. 1240 [128]
  55.