-
Notifications
You must be signed in to change notification settings - Fork 2
/
dataout.bas
198 lines (190 loc) · 13.3 KB
/
dataout.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
NEW
AUTO
REM **** BE SURE AND USE A C-60 TAPE FOR YOUR DATA TAPE! ! ! !
REM ADVENTURE DATA TAPE BUILDER. BUILDER/BAS
REM VERSION 1.3 (C) SCOTT ADAMS '80.
REM ADVENTURE INTERNATIONAL BOX 3435 LONGWOOD FL 32750
REM PHONE (305)-862-6917
REM BUILDS DATA TAPE FOR ORIGINAL BASIC VERSION OF PIRATE'S ADVENTURE
REM PLEASE NOTE ON LINES THAT SUDDENLY GO TO THE
REM NEXT LINE LIKE
REM THIS USE <DOWN ARROW> KEY WHICH IS RIGHT ABOVE
REM THE LEFT HAND SHIFT KEY ON YOUR TRS-80!
ONERROR:ONERROROFF:P.:REPORT:P.'ERL:CLOSE#0:END
DATA 60,151,59,33,5,11,13,3,125,71,3,75,161,386,160,200,0,17612,0,10,401,420,400,146,0,1852,8850,8,421,0,0,0,0,2011,0,8,521,520,260,0,0,2609,7800,100,108,760,820,420,100,8312,10264,100,484,0,0,0,0,5613,0,5,141,140,20,246,0
DATA 6062,0,5,406,426,400,442,146,7845,0,8,482,152,0,0,0,2311,0,100,104,0,0,0,0,8550,0,50,161,246,160,1100,0,7259,7800,100,148,140,940,500,0,10262,9900,30,841,426,406,400,0,7845,0,50,542,141,0,0,0,10504,9150,100,248,642,720,640,700
DATA 8005,7950,100,248,542,1040,540,0,8005,0,100,28,49,20,40,0,6360,8700,25,288,260,280,0,0,7860,9150,100,248,240,0,0,0,9660,0,100,269,260,0,0,0,16558,17357,100,28,48,20,40,0,4110,9000,4366,22,0,0,0,0,6900,0,4374,0,0,0,0,0,9750,0,4404
DATA 682,0,0,0,0,6900,0,4407,82,0,0,0,0,6900,0,1521,142,421,420,140,0,8902,450,1542,462,141,460,0,0,7800,0,1521,142,401,400,140,0,8902,450,2742,461,460,502,780,500,8864,8005,2742,461,460,0,0,0,7950,0,1523,482,146,0,0,0,2311,0,1523,482
DATA 141,266,0,0,2400,0,1523,482,141,261,260,520,8902,0,1533,0,0,0,0,0,9900,0,4350,0,0,0,0,0,9600,0,5100,0,0,0,0,0,9900,0,3450,581,344,460,0,0,8118,8614,2125,623,566,0,0,0,2850,0,2125,621,561,620,0,0,3021,9209,6794,0,0,0,0,0,17100,0
DATA 2125,622,561,620,240,0,10555,8720,184,404,702,380,0,0,8164,0,1525,24,806,0,0,0,2400,0,1525,24,801,800,620,0,8902,0,2725,621,620,800,0,0,8902,3450,2125,362,561,0,0,0,3300,0,6803,0,0,0,0,0,17100,0,185,384,0,0,0,0,3750,0,1510,762,760
DATA 505,0,0,7800,0,2710,761,760,582,20,0,7986,8700,6343,921,920,0,0,0,509,0,1513,122,261,260,240,0,8902,0,900,384,420,726,0,0,8164,0,900,424,380,0,0,0,8164,0,185,424,502,0,0,0,3900,0,185,424,505,440,0,0,8164,0,7815,0,0,0,0,0,10650,0
DATA 204,682,0,0,0,0,7650,0,2723,521,502,520,480,280,4259,8008,1513,122,266,0,0,0,2400,0,5751,62,0,0,0,0,300,0,207,40,102,0,0,0,8164,0,2713,241,240,260,0,0,8902,4350,1528,442,440,200,0,0,8319,8294,1257,100,102,292,80,221,8303,1050,5870
DATA 104,322,286,0,0,900,0,5570,104,322,286,0,0,900,0,3611,221,60,220,0,0,4558,7950,5870,322,281,320,340,0,8303,9600,2737,721,685,720,0,0,7950,0,900,384,721,0,0,0,5011,0,2737,721,1120,900,680,720,8003,8309,1537,722,720,0,0,0,4852,0
DATA 3300,0,0,0,0,0,5100,0,3900,0,0,0,0,0,9813,0,1510,762,502,0,0,0,3900,0,2710,761,585,820,760,0,5303,8850,1050,68,765,60,0,0,16710,0,4800,68,60,542,0,0,5910,0,4950,0,0,0,0,0,9750,0,7050,401,0,0,0,0,16613,15750,7050,421,0,0,0,0,16613
DATA 15750,184,364,0,0,0,0,15300,0,1554,682,0,0,0,0,7650,0,5250,502,860,360,500,0,6212,8250,2723,521,542,480,880,540,8003,8293,7350,68,60,0,0,0,9001,16607,5870,342,0,0,0,0,9600,0,166,702,380,0,0,0,8164,0,1050,68,760,100,80,502,8308
DATA 4710,6761,0,0,0,0,0,16614,0,5400,0,0,0,0,0,197,0,207,82,60,0,0,0,8164,0,1257,102,221,100,80,281,8303,1200,6038,502,0,0,0,0,3947,0,6039,542,0,0,0,0,5897,0,6313,241,240,260,0,0,509,7800,6313,122,0,0,0,0,450,0,6342,461,460,0,0,0,509
DATA 0,7500,322,68,320,340,60,8303,810,4050,524,10,0,0,0,4950,0,4050,524,11,200,0,0,8164,0,1200,226,0,0,0,0,5700,0,6600,943,221,220,500,140,2762,8700,6600,221,527,220,500,0,2762,9900,4217,183,0,0,0,0,7650,0,1521,142,140,0,0,0,7800,0
DATA 4217,203,169,960,160,0,7403,8700,4217,203,228,0,0,0,150,0,4217,203,208,220,660,960,7558,8159,4217,203,188,200,660,980,7558,8159,4217,203,168,980,180,0,7403,8700,7650,401,400,420,0,0,462,8902,7650,421,0,0,0,0,463,9150,4050,527,0,0
DATA 0,0,15300,0,3450,586,0,0,0,0,150,0,6600,0,0,0,0,0,150,0,5281,0,0,0,0,0,16607,5100,6807,0,0,0,0,0,15450,0,2723,521,480,520,260,0,8009,7800,6780,0,0,0,0,0,15450,0,6771,0,0,0,0,0,15450,0,7200,0,0,0,0,0,15600,0,207,224,560,0,0,0,8164
DATA 0,7050,524,0,0,0,0,16605,16350,7050,224,0,0,0,0,16605,0,7050,384,0,0,0,0,16605,0,7050,464,0,0,0,0,16606,0,7050,264,0,0,0,0,16609,0,7050,344,0,0,0,0,16609,0,7050,304,0,0,0,0,16609,0,7050,424,0,0,0,0,16605,0,7050,164,0,0,0,0,16608,0
DATA 5570,281,322,340,320,0,8005,0,206,342,120,0,0,0,8156,9600,2117,201,200,180,0,0,8902,1500,2119,181,180,200,0,0,8902,1350,1551,62,0,0,0,0,1711,0,166,1042,480,0,0,0,8164,0,1549,0,0,0,0,0,16611,0,2100,561,365,0,0,0,3600,0,5250,0,0,0,0
DATA 0,150,0,3450,581,347,340,0,0,8118,8464,7050,24,0,0,0,0,16605,0,3611,226,0,0,0,0,5700,0,7050,404,0,0,0,0,16616,15450,6774,0,0,0,0,0,9750,0,166,84,100,0,0,0,8164,0,1542,462,482,146,0,0,2311,0,7050,0,0,0,0,0,150,0,1200,0,0,0,0,0,197
DATA 0,3600,0,0,0,0,0,16800,0
DATA AUT,ANY,GO,NORTH,*ENT,SOUTH,*RUN,EAST,*WAL,WEST,*CLI,UP,JUM,DOWN,BEA,NET,CHO,FIS,*CUT,AWA,TAK,MIR,*GET,AXE,*PIC,*AX,*CAT
DATA WAT,LIG,BOT,*TUR,GAM,*LAM,HOL,*BUR,LAM,DRO,*ON,*REL,OFF,*SPI,DOO,*LEA,MUD,STO,*MED,AWA,BEE,THR,SCO,TOS,GAS,QUI,FLI,SWI
DATA EGG,RUB,OIL,LOO,*SLI,*SHO,KEY,*SEE,HEL,DRA,BUN,SCO,INV,INV,LED,YEL,THR,WAK,CRO,UNL,BRI,REA,BEA,OPE,DRA,ATT,RUG,*HIT
DATA RUB,DRI,HON,*GAT,FRU,BUN,OX,FIN,RIN,*LOC,CHI,HEL,*BIT,SAY,BRA,WIN,SIG,DOO,BLA,SCR,WEB,SAV,*WRI,"",SWA,"",LAV,"",ARO
DATA "",HAL,"",TRE,"",*STU,"",FIR
DATA 0,7,10,1,0,24,""
DATA 23,1,1,25,0,0,DISMAL SWAMP
DATA 0,0,0,0,0,1,TOP OF A TALL CYPRESS TREE
DATA 1,1,1,1,1,4,LARGE HOLLOW DAMP STUMP IN THE SWAMP.
DATA 0,0,0,0,3,5,ROOT CHAMBER UNDER THE STUMP
DATA 0,0,0,0,4,0,SEMI-DARK HOLE NEXT TO ROOT CHAMBER
DATA 0,0,0,0,5,7,LONG DOWN SLOPING HALL
DATA 8,9,0,27,6,12,LARGE CAVERN
DATA 0,7,0,0,0,0,LARGE 8 SIDED ROOM
DATA 7,0,0,0,20,0,ROYAL ANTEROOM
DATA 11,10,26,1,0,26,*I'M ON THE SHORE OF A LAKE
DATA 11,11,23,11,0,0,FOREST
DATA 13,15,15,0,0,13,MAZE OF PITS
DATA 0,0,0,14,12,0,MAZE OF PITS
DATA 17,12,13,16,16,17,MAZE OF PITS
DATA 12,0,13,12,13,0,MAZE OF PITS
DATA 0,17,0,0,14,17,MAZE OF PITS
DATA 17,12,12,15,14,18,MAZE OF PITS
DATA 0,0,0,0,17,0,BOTTOM OF A CHASM. ABOVE ME IS A PAIR OF LEDGES. ONE HAS A BRICKED UP WINDOW ACROSS ITS FACE THE OTHER FACES A THRONE ROOM.
DATA 0,0,0,20,0,0,*I'M ON A NARROW LEDGE BY A CHASM. ACROSS THE CHASM IS THE THRONE ROOM
DATA 0,0,0,0,0,9,ROYAL CHAMBER
DATA 0,0,0,0,0,0,NARROW LEDGE BY A THRONE ROOM. ACROSS THE CHASM IS ANOTHER LEDGE.
DATA 0,0,0,0,0,21,THRONE ROOM
DATA 10,1,10,11,0,0,SUNNY MEADOW
DATA 0,0,0,0,0,0,*I THINK I'M IN REAL TROUBLE NOW. THERE'S A FELLOW HERE WITH A PITCHFORK AND POINTED TAIL. ...OH HELL!
DATA 11,0,1,11,0,0,HIDDEN GROVE
DATA 0,0,0,0,0,0,QUICK-SAND BOG
DATA 0,0,7,0,0,0,MEMORY RAM OF A TRS-80. I TOOK A WRONG TURN!
DATA 0,0,0,0,0,11,TOP OF AN OAK. TO THE EAST I SEE A MEADOW. BEYOND THAT A LAKE.
DATA 0,0,0,0,0,0,""
DATA 0,0,0,0,0,0,""
DATA 0,0,0,0,0,0,""
DATA 0,0,0,0,0,0,""
DATA 0,24,11,24,28,24,LARGE MISTY ROOM WITH STRANGE UNREADABLE LETTERS OVER ALL THE EXITS.
DATA ""
DATA NOTHING HAPPENS
DATA CHOP IT DOWN!
DATA BOY THAT REALLY HIT THE SPOT!
DATA DRAGON SMELLS SOMETHING. AWAKENS. ATTACKS ME!
DATA LOCK SHATTERS
DATA I CAN'T ITS LOCKED
DATA TIMBER. SOMETHING FELL FROM THE TREE TOP AND VANISHED!
DATA TIMBER!
DATA LAMP IS OFF
DATA FLAMELESS LAMP IS LIT
DATA I'M BIT BY A SPIDER
DATA MY CHIGGER BITES ARE NOW INFECTED
DATA MY BITES HAVE ROTTED MY WHOLE BODY
DATA BEAR EATS THE HONEY AND FALLS ASLEEP
DATA BEES STING ME
DATA I'VE NO CONTAINER
DATA THE BEES ALL SUFFOCATED AND DISAPEARED
DATA SOMETHING I'M HOLDING VIBRATES AND...
DATA NOTHING TO LIGHT IT WITH
DATA GAS BLADDER BLEW UP
DATA IN MY HANDS!
DATA GAS NEEDS TO BE CONTAINED BEFORE IT WILL BURN
DATA GAS DISIPATES. (I THINK YOU BLEW IT)
DATA THAT WON'T IGNITE
DATA HOW? JUMP?
DATA BEAR WON'T LET ME
DATA DON'T WASTE *HONEY* GET MAD INSTEAD
DATA BEES MADDEN BEAR. BEAR THEN ATTACKS ME!
DATA IT SOAKS INTO THE GROUND
DATA IN 1 WORD TELL ME AT WHAT.
DATA OH NO...BEAR DODGES...CRASH.
DATA HEAVY!
DATA SOMETHINGS TOO HEAVY. I FALL.
DATA TO STOP GAME SAY QUIT
DATA MIRROR HITS FLOOR AND SHATTERS INTO MILLION PIECES
DATA MIRROR LANDS SOFTLY ON RUG. LIGHTS UP AND SAYS
DATA YOU LOST *ALL* TREASURES.
DATA NOT CARRYING AXE. TAKE INVENTORY!
DATA IT DOESN'T BOTHER HIM AT ALL
DATA THE MUD DRIED UP AND FELL OFF
DATA THE BEAR IS SO STARTLED HE FALLS OFF THE LGDGE.
DATA *DRAGON STING* AND FADES. I DON'T GET IT. I HOPE YOU DO.
DATA THE BEES ATTACK THE DRAGON WHICH GETS SO ANNOYED IT GETS UP AND FLYS AWAY...
DATA MAGIC OIL ATRACKS MAGIC LAMP. LAMP IS NOW FULL.
DATA I'M BIT BY CHIGGERS
DATA THERE'S SOMETHING THERE ALL RIGHT! MAYBE I SHOULD GO THERE?
DATA MAYBE IF I THREW SOMETHING?...
DATA TOO DRY. FISH DIE.
DATA A GLOWING GENIE APPEARS. DROPS SOMETHING. THEN VANISHGS.
DATA A GLOWING GENIE APEARS. SAYS -BOY YOU'RE SELFISH- TAKES SOMETHING AND THEN MAKES -ME- VANISH!
DATA NO. ITS TOO HOT
DATA NOT HERE.
DATA TRY THE SWAMP
DATA USE ONE WORD
DATA TRY--> LOOK. JUMP. SWIM. CLIMB. THROW. FIND. TAKE. INVENTORY. SCORE. DROP AND ANY OTHER VERB YOU THINK OF. SOME MAY NOT NEED A NOUN.
DATA ONLY 3 THINGS WILL WAKE THE DRAGON AND 1 ITEM IS DANGEROUS BY ITSELF!!
DATA IF YOU EVER WANT A HINT ON SOMETHING TRY -'HELP'.
DATA READ SIGN IN THE MEADOW!
DATA YOU MAY NEED MAGIC WORDS HERE
DATA A VOICE BOOOOMS OUT
DATA PLEASE LEAVE IT ALONE
DATA CAN ONLY THROW AX
DATA MEDICINE IS GOOD FOR BITES.
DATA I DON'T KNOW WHERE IT IS
DATA TO WIN GET 100 WHEN YOU SAY 'SCORE'. A TREASURE IS ANYTHING WITH AN * IN THE NAME
DATA BLOW IT UP.
DATA FISH ESCAPE BACK TO LAKE
DATA ""
DATA ""
DATA ""
DATA ""
DATA "",0,DARK HOLE,4,*POT OF RUBIES*/RUB/,4,SPIDER WEB WITH WRITING ON IT,2,-HOLLOW- STUMP AND REMAINS OF A FELLED TREE,0,CYPRESS TREE,1,WATER,10,EVIL SMELLING MUD/MUD/,1,*GOLDEN FISH*/FIS/,10,LIT BRASS LAMP/LAM/,0
DATA OLD FASHIONED BRASS LAMP/LAM/,3,RUSTY AXE (MAGIC WORD -BUNYON- ON IT)/AXE/,10,BOTTLE WITH WATER/BOT/,3,EMPTY BOTTLE/BOT/,0,RING OF SKELETON KEYS/KEY/,2,SIGN -LEAVE TREASURES HERE. SAY SCORE.-,3,LOCKED DOOR,5
DATA OPEN DOOR WITH A HALLWAY BEYOND,0,SWAMP GAS,1,*GOLDEN NET*/NET/,18,CHIGGER BITES,0,INFECTED CHIGGER BITES,0,FLOATING PATCHES OF OILY SLIME,1,*ROYAL HONEY*/HON/,8,LARGE AFRICAN BEES,8,VERY THIN BLACK BEAR,21
DATA BEES IN A BOTTLE/BOT/,0,LARGE SLEEPING DRAGON,23,FLINT & STEEL/FLI/,13,*THICK PERSIAN RUG*/RUG/,17,SIGN -MAGIC WORD IS AWAY. LOOK LA (REST OF SIGN IS MISSING),18,DISTENDED GAS BLADDER/BLA/,0,BRICKED UP WINDOW,20
DATA SIGN HERE SAYS -IN MANY CASES MUD IS GOOD. IN OTHERS...-,23,STREAM OF LAVA,18,BRICKED UP WINDOW WITH A HOLE IN IT. BEYOND IS A LEDGE.,0,LOOSE FIRE BRICKS,0,*GOLD CROWN*/CRO/,22,*MAGIC MIRROR*,21,SLEEPING BEAR,0
DATA EMPTY WINE BLADDER/BLA/,9,BROKEN GLASS,0,CHIGGERS/CHI/,1,DEAD BEAR,0,*DRAGON EGGS* (VERY RARE)/EGG/,0,LAVA STREAM WITH BRICK DAM,0,*JEWELED FRUIT*/FRU/,25,*SMALL STATUE OF A BLUE OX*/OX/,26,*DIAMOND RING*/RIN/,0
DATA *DIAMOND BRACLET*/BRA/,0,STRANGE SCRATCHINGS ON ROCK SAYS -ALADIN WAS HERE-,14,SIGN SAYS -LIMBO. FIND RIGHT EXIT AND LIVE AGAIN!-,33,SMOKING HOLE. PIECES OF DRAGON AND GORE.,0
DATA SIGN SAYS -NO SWIMMING ALLOWED HERE-,10,ARROW POINTING DOWN,17,DEAD FISH/FIS/,0,*FIRESTONE*(COLD NOW)/FIR/,0,SIGN SAYS -PAUL'S PLACE-,25,TREES,11,"",0,"",0
REM
REM PROGRAM STARTS HERE...
REM
RESTORE
CLS:INPUT"PREPARE DATA TAPE (HIT ENTER)";TP$:D=-1
CLS:PRINT"ADVENTURE DATA TAPE BUILDER - WORKING"
D=OPENOUT("DAT")
READ IL,CL,NL,RL,MX,R,TT,ln,LT,ML,TR:PRINT#D,IL,CL,NL,RL,MX,R,TT,ln,LT,ML,TR
DIMCA(1,7),NV$(NL+10,1),IA$(IL),IA(IL),RS$(RL),RM(RL,5),MS$(ML),AA(5),A$(9),A(1,7)
FORZ=0TOCL STEP2:FORXX=0TO1:FORY=0TO7:READ CA(XX,Y):NEXTY,XX:X=0
Y=X+1:PRINT#D,CA(X,0),CA(X,1),CA(X,2),CA(X,3),CA(X,4),CA(X,5),CA(X,6),CA(X,7),CA(Y,0),CA(Y,1),CA(Y,2),CA(Y,3),CA(Y,4),CA(Y,5),CA(Y,6),CA(Y,7)
PRINT';CA(X,0);" ";CA(X,1);" ";CA(X,2);" ";CA(X,3);" ";CA(X,4);" ";CA(X,5);" ";CA(X,6);" ";CA(X,7);" ";CA(Y,0);" ";CA(Y,1);" ";CA(Y,2);" ";CA(Y,3);" ";CA(Y,4);" ";CA(Y,5);" ";CA(Y,6);" ";CA(Y,7):NEXTZ
OS."FX21":V.7,136:P."PRESS A KEY":IFGET
FORX=0TONL:FORY=0TO1:READ NV$(X,Y):P."NV$(";X;",";Y;")="NV$(X,Y):NEXTY,X
OS."FX21":V.7,136:P."PRESS A KEY":IFGET
FORX=0TORL:READ RM(X,0),RM(X,1),RM(X,2),RM(X,3),RM(X,4),RM(X,5),RS$(X):P.;RM(X,0);" ";RM(X,1);" ";RM(X,2);" ";RM(X,3);" ";RM(X,4);" ";RM(X,5)'RS$(X)'':NEXT
OS."FX21":V.7,136:P."PRESS A KEY":IFGET
FORX=0TOML:READ MS$(X):P."MS$(";X;")="MS$(X):NEXT
OS."FX21":V.7,136:P."PRESS A KEY":IFGET
FORX=0TOIL:READ IA$(X),IA(X):P."IA$(";X;")=";IA$(X)'"IA(";X;")=";IA(X)':NEXT
P."Writing data to storage medium..."
FORX=0TONL STEP10:FORY=0TO1:PRINT#D,NV$(X,Y),NV$(X+1,Y),NV$(X+2,Y),NV$(X+3,Y),NV$(X+4,Y),NV$(X+5,Y),NV$(X+6,Y),NV$(X+7,Y),NV$(X+8,Y),NV$(X+9,Y):NEXTY,X
FORX=0TORL:PRINT#D,RM(X,0),RM(X,1),RM(X,2),RM(X,3),RM(X,4),RM(X,5),RS$(X):NEXT
FORX=0TOML:PRINT#D,MS$(X):NEXT
FORX=0TOIL:PRINT#D,IA$(X),IA(X):NEXT
CLOSE#D
P."Finished writing data."'
INPUT"REWIND TAPE TO BE VERFIED";TP$
D=OPENIN("DAT")
RESTORE:FORX=1TO11:READA0:NEXT
INPUT#D,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,B0
IFB0<>TR OR A0<>IL OR A1<>CL OR A2<>NL OR A3<>RL OR A4<>MX OR A5<>R OR(A6<>TT) OR A7<>ln OR(A8<>LT) OR A9<>ML THEN6790
FORX=0TOCL STEP2:INPUT#D,A(0,0),A(0,1),A(0,2),A(0,3),A(0,4),A(0,5),A(0,6),A(0,7),A(1,0),A(1,1),A(1,2),A(1,3),A(1,4),A(1,5),A(1,6),A(1,7)
FORY=0TO1:FORZ=0TO7:READ A0:IFA(Y,Z)<>A0 THEN6790 ELSE NEXTZ,Y,X
FORX=0TONL STEP10:FORY=0TO1:INPUT#D,A$(0),A$(1),A$(2),A$(3),A$(4),A$(5),A$(6),A$(7),A$(8),A$(9):FORZ=0TO9:IFNV$(X+Z,Y)<>A$(Z) THEN6790 ELSE NEXTZ,Y,X
FORX=0TORL:INPUT#D,AA(0),AA(1),AA(2),AA(3),AA(4),AA(5),A$:FORY=0TO5:IFAA(Y)<>RM(X,Y)ORA$<>RS$(X)THEN6790 ELSE NEXTY,X
FORX=0TOML:INPUT#D,A$:IFA$<>MS$(X)THEN6790ELSENEXT
FORX=0TOIL:INPUT#D,A$,AA(0):IFAA(0)<>IA(X)ORA$<>IA$(X)THEN6790ELSENEXTX:CLOSE#D:PRINT"DATA TAPE VERIFIED":END
PRINT"BAD TAPE":CLOSE#D:END