home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503a.d64 / basic (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  124 lines
  1. 0 POKE792,193:CLR:GOSUB50000
  2. 1 REM *******************************
  3. 2 REM *     (C)  ROBOSERVANT        *
  4. 3 REM *                             *
  5. 4 REM *ROBERT BRANDL THOMAS SCHMIDT *
  6. 5 REM *KAISERSTR. 4  BUERKLEINSTR.15*
  7. 6 REM *                             *
  8. 7 REM *8510 FUERTH   8510 FUERTH    *
  9. 8 REM *0911/717378   0911/717665    *
  10. 9 REM *******************************
  11. 10 D=49184:A=D+17:LO=16364:SO=54272:FG=53280:DA=2040:X=730:S=53248:SP=0
  12. 20 AS=49152:DS=AS+16:BN=16384:SYSAS+2051:GOSUB6000:GOSUB6100:POKE56325,45
  13. 30 POKES+24,24:POKE251,0:POKE252,61:NN=56322
  14. 1000 SYS49862:POKESO+24,15:POKESO+1,3:POKESO+5,135
  15. 2000 POKEFG,0:POKEFG+1,14:POKES+21,0:POKES+22,24:POKEFG+2,8:POKEFG+3,0
  16. 2005 POKE766,0
  17. 2010 PRINT"[147]"CHR$(142)CHR$(8)SPC(14)"[144]ROBOSERVANT"
  18. 2020 PRINT"[150]      [176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176]"
  19. 2030 PRINT"      [184][146] PROGRAMMED BY ROBERT B. [184][146]
  20. 2040 [153]"      ORWAIT           AND THOMAS S. ORWAIT
  21. 2080 PRINT"      [184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184][176][184]"
  22. 2120 PRINT"[144]1 = PLAY GAME"
  23. 2130 PRINT"2 = EDIT MODUS"
  24. 2140 PRINT"3 = LOAD"
  25. 2145 PRINT"4 = HIGHSCORES"
  26. 2160 PRINT""SPC(15)"5 = END"
  27. 2200 POKE198,0:WAIT198,1:GETA$
  28. 2300 ONVAL(A$)GOTO5000,4000,9000,9500,30000
  29. 2400 GOTO2200
  30. 4000 PRINT"[147]":GOSUB6150:FORY=0TO39:PRINT"[163]";:NEXT
  31. 4005 POKE766,6:FORAD=56216TO56255:POKEAD,10:NEXT
  32. 4010 SYSAS+320:GOSUB6100:BU=255:BI=1044:PO=16377:FL=7:GOSUB6000
  33. 4020 POKES,181:POKES+1,48:POKEDA,160:GOTO4610:SYSAS+320
  34. 4100 POKENN,255
  35. 4105 GETA$:IFA$=""THEN4105
  36. 4110 IFA$="R"THEN4650
  37. 4120 IFA$="F"THEN4600
  38. 4130 IFA$="L"THEN4700
  39. 4140 IFA$="[145]"THEN4800
  40. 4150 IFA$=""THEN4850
  41. 4160 IFA$="S"THEN4900
  42. 4170 IFA$=""THEN4400
  43. 4180 IFA$="[157]"THEN4430
  44. 4200 IFA$="A"THEN15000
  45. 4220 IFA$="X"THEN2000
  46. 4300 GOTO4100
  47. 4400 POKENN,0:IFFL=659THEN4100
  48. 4410 FL=FL+1:PO=PO-1
  49. 4415 FORT=0TO7:SYSAS:NEXT
  50. 4420 GOTO4100
  51. 4430 POKENN,0:IFFL=0THEN4100
  52. 4440 FL=FL-1:PO=PO+1
  53. 4445 FORT=0TO7:SYSDS:NEXT
  54. 4450 GOTO4100
  55. 4600 BU=BU-1:IFBU=238THENBU=255
  56. 4610 FORQW=1944TO1983:POKEQW,BU:NEXT:GOTO4105
  57. 4650 BU=BU+1:IFBU=256THENBU=239
  58. 4660 FORQW=1944TO1983:POKEQW,BU:NEXT:GOTO4105
  59. 4700 SYSAS+384:GOTO4000
  60. 4800 BI=BI-40:IFBI<1044THEN4840
  61. 4810 PO=PO-680:POKES+1,PEEK(S+1)-8:GOTO4105
  62. 4840 BI=1044:GOTO4100
  63. 4850 BI=BI+40:IFBI>1884THEN4880
  64. 4860 PO=PO+680:POKES+1,PEEK(S+1)+8:GOTO4105
  65. 4880 BI=1884:GOTO4105
  66. 4900 POKEBI,BU:POKEPO,BU:GOTO4105
  67. 5000 RO=3:PRINT"[150][147]":GOSUB6100:GOSUB6000:GOSUB6150
  68. 5040 FORY=0TO39:PRINT"[163]";:NEXT
  69. 5060 PRINT"[156]     ROBOS: "ROSPC(10)"TIME: 000000"
  70. 5080 TI$="000000":POKEX-1,0:POKEX,0:SYSAS+320:SYS50176:G$=TI$
  71. 5090 IFPEEK(X-1)=1THEN5200
  72. 5100 GOSUB7000:PRINTSPC(11)"[144]MISSION COMPLETED[146]":FORT=0TO4000:NEXT:GOTO50060
  73. 5200 FORT=0TO160:POKEFG+1,2:NEXT:GOSUB6150:RO=RO-1:PRINTSPC(12)"[156]"RO
  74. 5220 IFRO=0THEN5950
  75. 5240 GOSUB6000:GOSUB6100:GOTO5080
  76. 5900 GOTO5900
  77. 5950 GOSUB7000:PRINTSPC(15)"[144]GAME OVER[146]":FORT=0TO3000:NEXT:GOTO2000
  78. 6000 POKEDA,160:POKEDA+1,162:POKEDA+2,163:POKE717,100:POKE718,4:POKE729,0
  79. 6020 POKES+21,7:POKES+2,215:POKES+3,197:POKES+4,215:POKES+5,53
  80. 6040 POKES,181:POKES+1,53:POKES+16,0:POKE708,211:POKE709,63
  81. 6060 POKES+37,15:POKES+38,6:FORT=0TO3:POKES+39+T,0:NEXT:POKES+28,7
  82. 6080 RETURN
  83. 6100 POKE674,228:POKE675,63:SYSD:RETURN
  84. 6150 PRINT"":RETURN
  85. 7000 PRINT"";:RETURN
  86. 9000 GOSUB10000:LOADA$,8,8
  87. 9500 GOSUB50240:PRINTSPC(12)"PRESS ANY KEY":POKE198,0:WAIT198,1:GOTO2000
  88. 10000 POKESO+24,0:SYS49972:POKEFG+1,14:A$="":INPUT"[147][144]NR.";A$
  89. 10010 IFA$=""THENSYS49862:POKESO+24,15:GOTO2000
  90. 10020 POKE49591,ASC(A$):RETURN
  91. 15000 POKES+21,0:GOSUB10000:SYS49568:SYS49862:POKESO+24,15:GOTO2000
  92. 30000 SYS64738
  93. 50000 OPEN2,8,15:OPEN1,8,2,"HS,P,R"
  94. 50010 INPUT#2,N:CLOSE1:CLOSE2:IFN=0THEN50040
  95. 50020 FORT=1TO5:NA$(T)="R.BRANDL & T.SCHMIDT":SC$(T)="999999":NEXT
  96. 50030 RETURN
  97. 50040 OPEN1,8,2,"HS,P,R":FORT=1TO5:INPUT#1,NA$(T):INPUT#1,SC$(T):NEXT:CLOSE1
  98. 50050 RETURN
  99. 50060 SC$=G$:NA$="":POKES+21,0
  100. 50070 FORT=1TO5:IFSC$<=SC$(T)THEN50090
  101. 50080 NEXT:GOSUB50240:FORT=0TO3000:NEXT:GOTO2000
  102. 50090 FORJ=5TOTSTEP-1:NA$(J+1)=NA$(J):SC$(J+1)=SC$(J):NEXT:SC$(T)=SC$
  103. 50100 NA$(T)="...................."
  104. 50110 GOSUB50240:PRINT"  ";:FORM=1TOT:PRINT"";:NEXT
  105. 50120 POKE198,0:WAIT198,1:GETA$
  106. 50130 IFA$=CHR$(13)THEN50200
  107. 50140 IFA$=CHR$(44)ORA$=CHR$(58)ORA$=CHR$(59)THEN50120
  108. 50150 IFA$=CHR$(20)THEN50180
  109. 50160 IFA$<CHR$(32)ORA$>CHR$(95)THEN50120
  110. 50165 IFLEN(NA$)>19THEN50120
  111. 50170 NA$=NA$+A$:PRINTA$;:GOTO50120
  112. 50180 IFLEN(NA$)=<0THEN50120
  113. 50190 NA$=LEFT$(NA$,LEN(NA$)-1):PRINT"[157].[157]";:GOTO50120
  114. 50200 NA$(T)=NA$+RIGHT$(NA$(T),LEN(NA$(T))-LEN(NA$))
  115. 50210 SYS49972:POKESO+24,0:POKEFG+1,14
  116. 50213 OPEN1,8,15,"S:HS":CLOSE1
  117. 50215 OPEN1,8,2,"HS,P,W":FORT=1TO5:PRINT#1,NA$(T):PRINT#1,SC$(T):NEXT:CLOSE1
  118. 50230 SYS49862:POKESO+24,15:GOTO2000
  119. 50240 PRINT"[147]"SPC(15)"[144]TOP FIVES :
  120. 50260 [153][166]14)"TAB(USRFREUSRTAB(USRFREUSRTAB(USRFREUSRTAB(
  121. 50270 FORR=1TO5:PRINT"  ";NA$(R),SC$(R)CHR$(13):NEXT
  122. 50280 RETURN
  123. 0 
  124.