Loadstar 191/191.d81/t1

Commodore BASIC | 2022-08-26 | 4KB | 142 lines

5 rem*screentitles 1200
10 dv=peek(186)
15 gosub1100:rem menu
20 if peek(197)=4 then2000
22 poke198,0:wait198,1:geta$
30 ifa$="a"then5000
32 ifa$="b"then102
70 goto20
99 rem basic+run 200*mc 300*mc run 400*
100 b$="       ":goto200
102 b$="telnyr":goto200
114 b$="+++++++++++++":goto200
116 b$="+++++++++++++":goto200
118 b$="+++++++++++++":goto200
120 b$="+++++++++++++":goto200
122 b$="+++++++++++++":goto200
198 rem
199 rem***basic + run****
200 c$=chr$(34):poke198,4
210 print"[147]load";c$;b$;c$;",dv";
230 poke631,13:poke632,82:poke633,117:poke634,13:end
298 rem
299 rem***m/c autorun***
300 c$=chr$(34)
302 print"[147]":fork=1to10:print:next:print" loading....":print""
304 fork=1to800:next:poke646,0
310 printchr$(147);"load";c$;b$;c$;",dv,1"
320 poke631,19:poke632,13:poke198,2:end
398 rem
399 rem***m/c + run*****
400 c$=chr$(34):poke198,4
410 print"[147]load";c$;b$;c$;",dv,1";
430 poke631,13:poke632,82:poke633,117:poke634,13:end
795 rem
796 rem
797 rem
1100 rem **** screen set-up ****
1110 poke53281,0:poke53280,0:poke646,5: print"[147]"
1112 t$="telnyr 1"
1120 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
1130 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
1140 print"";:fori=1to22:print"[194]                                      [194]";:next
1150 ce=((40-len(t$))/2)-1:l=len(t$):print""
1160 printtab(ce)"[145][213]";:fori=1tol:print"[195]";:next:print"[201]"
1170 printtab(ce)"[194]"le$t$bo$"[194]"
1180 printtab(ce)"[145][202]";:fori=1tol:print"[195]";:next:print"[203]":print
1188 rem
1189 rem
1190 rem***names***
1191 rem
1192 rem
1200 printtab(2)" a [146] telnyr instructions"
1210 printtab(2)" b [146] the stone of telnyr"
1252 goto1340
1260 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
1270 printtab(21)"                  "
1280 printtab(21)"                  "
1290 printtab(21)"                  "
1300 printtab(21)"                  "
1310 printtab(21)"                  "
1320 printtab(21)"                  "
1340 poke646,8:print:printtab(2)"program by p.r.boothman":poke646,5
1400 return
2000 print"[147]":poke646,0:poke53281,11:poke53280,11
2010 print" make your choice from the menu."
2020 print:print" the prg will automatically load & run.":print
2030 print:print" whereas some programmes can be exited"
2040 print:print" by hitting runstop/restore, it will"
2050 print:print" sometimes be necessary to turn the c64"
2060 print:print" off then on again to clear memory."
2070 print:print" entering sys 64738 (return) will also"
2080 print:print" clear the computers memory.":print
2090 print:print" then simply load the menu again to"
2100 print:print" choose another programme.":poke646,15
2110 print:print"    press any key to return to menu"
2120 poke 198,0:wait 198,1:getz$
2130 goto15
5000 print"[147]"
5020 poke646,7:poke53281,0:poke53280,0
5030 poke646,5:printtab(9)"**telnyr info**"
5040 print:print" use joystick in port 2"
5042 poke646,8:print:print" telnyr loads from disk during the"
5044 print" game so leave the disk in the drive"
5046 print" and leave the drive on."
5050 poke646,5:print:print" use fire button to enter towns, exit"
5052 print" dungeon, dig for treasure and pick "
5054 print" up objects in dungeon."
5060 poke646,3:print:print" to dig for treasure you need a sextant"
5062 print" and the correct coordinates."
5066 poke646,4:print:print" you can only carry one weapon."
5070 print" prices at long john's weaponry include"
5072 print" trade in on your old weapon"
5080 print:print:print" * press a key *"
5082 poke198,0:wait198,1:getz$
5100 poke646,5:print"[147]":print" the auto attack option (in combat)"
5110 print" can be exited by holding down the "
5120 print" space bar."
5130 poke646,3:print:print" if your character dies you have the"
5140 print" option to resurrect with all current  "
5150 print" spells, gold and weapon plus 100hp."
5160 poke646,7:print:print" as there is no save game option it is"
5162 print" wise to note the coordinates of any "
5164 print" buried treasure you have found."
5170 print" then if you begin a new game you can"
5180 print" save time by digging up treasure "
5182 print" immediately."
5190 poke646,8:  print:print" you cannot dig up treasure a second"
5192 print" time if you 'resurrect'."
5194 print:print:print" * press a key *"
5196 poke198,0:wait198,1:getz$
5200 print"[147]"
5210 poke646,7:  print:print" if your hitpoints reach zero or you"
5212 print" run out of food you will die."
5214 poke646,8: print:print" sextants won't work underground."
5220 poke646,6:print:print"  spells: [146]"
5222 poke646,5: print:print" *confuse   enemies will miss more often"
5224 print:print" *strength  increases your weapon's"
5226 print"            power by up to 20 points."
5228 print:print" *heal      adds 50 hitpoints"
5230 print:print:print" *banish    banishes all foes."
5240 poke646,12:print:print:print"  press a key [146]"
5242 poke198,0:wait198,1:getz$
5999 goto10
6000 print"[147]":print" gypsum cave adventure"
6010 print:print" if your character dies during the game"
6020 print" just type run and press return to "
6030 print" start again."
6040 print:print" when game loads type 'enter' to enter"
6050 print" the cave."
6060 print:print" if you are really stuck list the"
6070 print" programme for clues."
6072 print:print:print" *press a key*"
6074 poke198,0:wait198,1:getxh$
6080 return
7000 print"[147]":print" gypsum cave iii"
7010 print:print" use number keys 1 2 3 4 to input"
7020 print" direction instead of n s e w"
7030 print:print" 5 is up  6 is down"
7040 print:print:print:print" *press a key"
7050 poke198,0:wait198,1:getwq$
7058 return