Willus.com
Home
|
Archive
|
About
TREASURE
(1203 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
10 'TREASURE TROVE * 4K LEVEL II 20 CLS 30 DATA box,tree,dragon,beach,key,ladder,feather 40 DATA shovel,unlock,climb,tickle,dig,ladder,shovel 50 DATA key,treasure,climb,dig,unlock,enjoy 60 DIMA$(20) 70 FORA=1TO20 80 READA$(A) 90 NEXTA 100 B$="feather" 110 PRINT"First tool: ";A$(7);". Use ";A$(11):PRINT 120 A=1 130 GOSUB520 140 GOSUB490 150 IFC$="N"ORC$="n"GOTO200 160 IFC$="E"ORC$="e"GOTO360 170 IFC$="NE"ORC$="ne"GOTO280 180 GOSUB440 190 GOTO140 200 A=2 210 GOSUB520 220 GOSUB490 230 IFC$="e"ORC$="E"GOTO280 240 IFC$="S"ORC$="s"GOTO120 250 IFC$="SE"ORC$="se"GOTO360 260 GOSUB440 270 GOTO220 280 A=3 290 GOSUB520 300 GOSUB490 310 IFC$="W"ORC$="w"GOTO200 320 IFC$="SW"ORC$="sw"GOTO120 330 IFC$="S"ORC$="s"GOTO360 340 GOSUB440 350 GOTO300 360 A=4 370 GOSUB520 380 GOSUB490 390 IFC$="N"ORC$="n"GOTO280 400 IFC$="W"ORC$="w"GOTO120 410 IFC$="NW"ORC$="nw"GOTO200 420 GOSUB440 430 GOTO380 440 PRINT 450 PRINT"B-O-N-K !" 460 PRINT 470 RETURN 480 PRINT"Right" 490 INPUT"Direction";C$ 500 CLS 510 RETURN 520 PRINT"Location: ";A$(A) 530 PRINT"Tool: ";B$:PRINT 540 E$="" 550 INPUT"Action";E$ 560 IFE$=""THENRETURN 570 CLS 580 IFB$<>A$(A+4)ORE$<>A$(A+8)GOSUB660:RETURN 590 PRINT"Good Move" 600 PRINT"The ";A$(A);" produces a ";A$(A+12) 610 PRINT"This is your new tool" 620 PRINT"Its purpose: ";A$(A+16) 630 B$=A$(A+12) 640 IFB$=A$(16)THENPRINT"You Win.":END 650 RETURN 660 PRINT"What, ";E$;" a ";A$(A);" with a ";B$;"?" 670 PRINT"Impossible !!!" 680 RETURN 690 END