home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / MISSION-TO-MARS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.8 KB  |  110 lines
  1. 1 REM JOHN HEIDENRICH 8/22/78
  2. 5 PRINT"[147]":PRINTTAB(11)"MISSION TO MARS":FORY=1TO2000:NEXTY
  3. 10 PRINT"[147]":PRINTTAB(15)"[145][165][157][165][157][165]"
  4. 20 PRINTTAB(14)"[167][180][157][157][170][181][157][157][169][205][167][184][184][165]   "
  5. 30 PRINTTAB(14)"[207][208][157][157][207][208][157][157][165][167][157][157][165][167][157][157][165][167][157][157][165][167][157][157][165][167][157][157][157][161][165][167][146][161]"
  6. 40 PRINTTAB(13)"[161][165][167][146][161][157][157][157][157][161][165][167][146][161][157][157][157][157][161][165][167][146][161][157][157][157][157][161][165][167][146][161]"
  7. 50 PRINTTAB(13)" [165][167] [157][157][157][157] [165][167] [157][157][157][157] [207][208] "
  8. 60 PRINTTAB(12)"[169] [207][208] [223]"
  9. 70 PRINT"[164][164][164][164][164][164][164][164][164][164][164][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  10. 80 PRINT"":PRINTTAB(19)"[167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165]"
  11. 90 PRINTTAB(19)"[167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][167][214][214][165]"
  12. 100 PRINTTAB(19)"[167][214][214][165][157][157][157][157][167][214][214][165][157][157][157][157][186][214][146][214][204][157][157][157][157][157][169]    [223]":GOSUB1100
  13. 120 PRINTTAB(20)"[145][145][214][145][157][214]":GOSUB1200
  14. 125 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  15. 130 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  16. 135 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  17. 140 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  18. 145 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  19. 150 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  20. 155 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  21. 160 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  22. 165 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  23. 170 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  24. 175 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  25. 180 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  26. 185 PRINTTAB(20)"[145][214][145][157][214]":GOSUB1200
  27. 190 PRINTTAB(20)"[145][214][145][157] ":GOSUB1300
  28. 195 PRINTTAB(15)"[145][223][146][223][167]":GOSUB1200
  29. 200 PRINTTAB(16)"[145] [223][167]":GOSUB1300
  30. 220 PRINTTAB(20)"[214][157][214]":GOSUB1200
  31. 225 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  32. 230 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  33. 235 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  34. 240 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  35. 245 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  36. 250 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  37. 255 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  38. 260 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  39. 265 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  40. 270 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  41. 275 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  42. 280 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  43. 285 PRINTTAB(20)"[145][214][157][214]":GOSUB1200
  44. 290 PRINTTAB(14)"[166][166]":GOSUB1200
  45. 300 PRINTTAB(11)"[145][168][166][166][166][166][166][166][168]":GOSUB1200
  46. 310 PRINTTAB(9)"[168][166][166][145][145][166][166][168][166][166][168]":GOSUB1200
  47. 320 PRINTTAB(7)"[166][166][166][145][157][157][166][166][166][166][145][157][157][166][166][166][166][166][166][166][166][166][166][157][157][157][166][166][166][166][166][166][145][145][157][157][157][157][157][157][157][157][157][157][157][166][166][166][166][166][166][166]"
  48. 330 GOSUB1200:PRINTTAB(3)"[166][166][166][166][145][157][157][157][166][166][166][166][145][157][157][157][166][166][166][166][166][145][157][157][157][157][166][166][166][166][166][166][145][157][157][157][166][166][166][166][166][166][166][166][166][168]"
  49. 340 PRINTTAB(19)"[166][166][166][166][157][157][157][166][166][166][166][166][157][157][166][166][166][166]"
  50. 350 PRINTTAB(12)"(1)[172]39)".":[130]H
  51. 410 [153]"(null)STEP(null)TAB(TAB((null)(null)WAITTO"
  52. 420 [153]"STEP(null)(null)TOTOSQRWAITSTEPUSRTAB(TAB(TAB("
  53. 450 [129]H[178]1[164]11:[153][163][187](1)[172]39)".":[130]H
  54. 460 A[178]A[170]1
  55. 470 [153]"":[153][163]A)"CMDSPC((null)STEP(null)TAB(TAB((null)(null)WAITTO"
  56. 480 [153][163]A)"CMDSPC(STEP(null)(null)TOTOSQRWAITSTEPUSRTAB(TAB(TAB("
  57. 485 [139]A[178]29[167][137]500
  58. 490 [137]460
  59. 500 [153]"LOAD":[141]1100
  60. 510 [129]H[178]1[164]10:[153][163][187](1)[172]39)".":[130]H
  61. 520 [153]"(null)WAIT=(null)+ =(null)WAITCMDCMDCMDVAL"
  62. 540 [129]H[178]1[164]7:[153][163][187](1)[172]39)".":[130]H
  63. 550 [153]"TOTOTO(null)(null)(null)ASCASCASCTANTANTANLENLENLENSTR$STR$STR$VALVALVALTAB(TAB(TAB(VALVALVALSTR$STR$STR$LENLENLENTANTANTANASCASCASC":B[178]1
  64. 560 [153]"ONONONONONONONONONONSAVE":[141]1200
  65. 570 [153]"ONSAVE":[141]1200:[153]"ONSAVE":[141]1200:[153]"ONSAVE":[141]1200:[153]"ONSAVE"
  66. 580 [153]"SAVESAVESAVESAVESAVE"
  67. 590 [153]"ONONSAVE":[141]1200:[153]"ONSAVE":[141]1200:[153]"ONSAVE":[141]1200:[153]"ONSAVE"
  68. 600 [153]
  69. 610 [129]J[178]1[164]8:[153][163]13)"LENONCMD ":[141]1200:[130]J:[141]1100:[153]"LOAD":[141]1100
  70. 700 [153][163]30)"(null)(null)CMDCMDCMD(null)  (null)CMDCMDCMDCMDCMD(null)    (null)CMDCMDCMDCMDCMDCMDCMD(null)      (null)"
  71. 710 [153][163]22)"ONONON(null)(null)CMDCMDCMD(null)  (null)CMDCMDCMDCMDCMD(null)    (null)"
  72. 720 [153][163]10)"ON(null)(null)":[153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  73. 730 [129]H[178]1[164]10:[153][163][187](1)[172]39)".":[130]H:[141]1300
  74. 740 [153]"":[129]Y[178]1[164]16:[153][163]3)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[130]Y:[141]1200
  75. 750 [153]"":[129]Y[178]1[164]7:[153][163]3)"          ":[130]Y
  76. 760 [153]"      (null)OR^(null)   ":[153]"     STEP    (null)WAIT  ":[153]"      NEW  NEW  WAIT "
  77. 770 [153]"   TO (null)TOTOTOTOWAITSTEP TO":[153]"STEP        (null)"
  78. 780 [153]"          ":[153]"THEN(null)TOTOTOTOTOTOTOTOWAITSTEPFN":[153]"THEN(null) (null)    WAITSTEP (null)FN"
  79. 790 [153]"ANDFN        THENAND":[141]1100
  80. 800 [153][163]11)"ONONONONONONONON(null)":[141]1400:[153][163]12)"ONON(null)":[141]1400
  81. 810 [153][163]11)"ANDWAIT(null)(null)ONCMDCMD ":[141]1400:[153][163]11)"(null)ANDWAIT  CMDCMDCMD(null)(null)(null)":[141]1400
  82. 820 [153][163]11)"ONONON (null)RNDCMDCMDSQRGETCMDFN CMDCMD(null)":[141]1400
  83. 830 [153][163]12)"ONONONON (null)WAITCMDCMD(null) WAIT(null)CMDCMD(null)(null)TOCMDCMDCMD(null)TAB((null)":[141]1400
  84. 840 [153][163]13)"ONONONON CMDCMDTO(null)CMD WAITON CMDCMDFN(null) CMDCMDCMD(null) (null)":[141]1400
  85. 850 [153][163]12)"ONONONON  CMDCMD(null)(null)WAITTOCMDCMD WAIT(null)CMD(null) CMDCMDFN(null)":[141]1400
  86. 860 [153][163]12)"ONONONONTOTOCMD(null)(null)WAIT(null)CMDCMDCMD  WAITCMDFNFNCMDCMDFNFN":[141]1400
  87. 870 [153][163]13)"ONONONON   CMDCMD (null)WAITCMDCMDLEFT$ WAITCHR$CMDCMDCMD FNFNCMDCMDFNFN":[141]1300
  88. 880 [153][163]15)"ONONONON*(null)CMDCMDCMD GETABSWAITCMDCMDTHEN(null)CMDCMD(null)THEN":[141]1400
  89. 890 [153][163]15)"ONONONON *(null)CMDCMDCMD GET+WAITCMDCMDCMD THEN(null)CMDCMDCMD THEN(null)":[141]1400
  90. 900 [153][163]16)"ONONONON*(null)CMDCMDCMD GETABSWAITCMDCMDTHEN(null)CMDCMD(null)THEN":[141]1400
  91. 910 [153][163]16)"ONONONON *(null)CMDCMDCMD GET+WAITCMDCMDCMD THEN(null)CMDCMDCMD THEN(null)":[141]1400
  92. 920 [153][163]17)"ONONONON*(null)CMDCMDCMD GETABSWAITCMDCMDTHEN(null)CMDCMD(null)THEN":[141]1400
  93. 930 [153][163]17)"ONONONON *(null)CMDCMDCMD GET+WAITCMDCMDCMD THEN(null)CMDCMDCMD THEN(null)":[141]1400
  94. 940 [153][163]18)"ONONONON*(null)CMDCMDCMD GETABSWAITCMDCMDTHEN(null)CMDCMD(null)THEN":[141]1400
  95. 950 [153][163]17)"ONONONON (null)WAITSQRCMDCMDCMDLEFT$ WAITTHENCMDCMDCMDTHENTHENTHENCMDCMDCMDTHENTHENTHEN":[141]1300
  96. 999 [137]2000
  97. 1100 [129]I[178]1[164]1000:[130]I:[142]
  98. 1200 [129]I[178]1[164]100:[130]I:[142]
  99. 1300 [129]I[178]1[164]500:[130]I:[142]
  100. 1400 [129]I[178]1[164]150:[130]I:[142]
  101. 2000 [153][163]11)"ONONONONONONONON(null)":[141]1400:[153][163]12)"ONON(null)":[141]1400
  102. 2010 [153][163]11)"ANDWAIT(null)(null)ONCMDCMD ":[141]1400:[153][163]11)"(null)ANDWAIT  CMDCMDCMD(null)(null)(null)":[141]1400
  103. 2020 [153][163]11)"ONONON (null)RNDCMDCMDSQRGETCMDFN CMDCMD(null)":[141]1400
  104. 2030 [153][163]12)"ONONONON (null)WAITCMDCMD(null) WAIT(null)CMDCMD(null)(null)TOCMDCMDCMD(null)TAB((null)":[141]1400
  105. 2040 [153][163]13)"ONONONON CMDCMDTO(null)CMD WAITON CMDCMDFN(null) CMDCMDCMD(null) (null)":[141]1400
  106. 2050 [153][163]12)"ONONONON  CMDCMD(null)(null)WAITTOCMDCMD WAIT(null)CMD(null) CMDCMDFN(null)":[141]1400
  107. 2060 [153][163]12)"ONONONONTOTOCMD(null)(null)WAIT(null)CMDCMDCMD  WAITCMDFNFNCMDCMDFNFN":[141]1400
  108. 2070 [153][163]13)"ONONONON   CMDCMD (null)WAITCMDCMDLEFT$ WAITCHR$CMDCMDCMD FNFNCMDCMDFNFN":[141]1300
  109. 2080 [153][163]20)"ONONONONSPC( CMDCMDNEWNEW"
  110.