100 REM ********************************
101 REM *  VIEW BAM FOR C-64 DISKETTE  *
102 REM ********************************
103 PRINT"[147]VIEW BAM 64[146] INSERT DISK THEN PRESS A KEY":POKE53281,.:POKE198,.
104 GETA$:IFA$=""THEN104
105 OPEN15,8,15
110 PRINT#15,"I0":NU$="                   ":Z4=1:NC$="[146]":Z$=CHR$(.)
120 OPEN2,8,2,"#
130 Y$[178]"
140 X$="
150 [150] [165]S(Z) [178] 2[174](S[171][181](S[173]8)[172]8) [175] (SB([181](S[173]8)))
160 [152]15,"UA:2 0 18 0
170 PRINT#15,"B-P:2 1
180 [153]"LOAD";
190 Y[178]22:X[178]1:[141]430
200 [129]I[178].[164]20:[153]:[153]"ONON"[201]([196](I),2);:[130]
210 [161]#2,A$,A$,A$
240 TS[178].
250 [129]T[178]1[164]35:[141]450
260 Y[178]22:X[178]T[170]3:[141]430:[141]540:[130]
270 [137]340
300 [129]T[178]18[164]35
310 [141]450
320 Y[178]22:X[178]T[170]3:[141]430:[141]540:[130]
340 [153]""[200](Y$,24);
350 [152]15,"B-P";2;144
360 N$[178]"":[129]I[178]1[164]20:[161]#2,A$:N$[178]N$[170]A$:[130]
370 [153]" "N$" "TS[171]17;"BLOCKS FREE"
400 [133]"ANOTHER DISKETTE  NCMDCMDCMD";A$
410 [139]A$[178]"Y"[167][138]
420 [139]A$[179][177]"Y"[167][160]15:[160]2:[137] 63000
430 [153][200](Y$,Y)[200](X$,X)"CMD";
440 [142]
450 [161]#2,SC$:SC[178][198]([201]([199](.)[170]SC$,1))
460 TS[178]TS[170]SC
470 [129]Z[178].[164]2:[161]#2,A$:SB(Z)[178][198](A$[170]Z$):[130]:[142]
540 [139]T[178]18[167][153]"CONT";
545 [153]"CMD"[201]([196](T),1)"ONCMD"[200]([201](" "[170][196](T),2),1)"CMDON";
550 [143]  PRINTT"   "SC"  "SB(.)" "SB(1)" "SB(2)=Z$
570 [129]S[178].[164]20
580 [139]T[179]18[167]630
590 [139]T[177]30[175]S[177]16[167]S[178]20:[137]660
600 [139]T[177]24[175]S[177]17[167]S[178]20:[137]660
620 [139]T[177]17[175]S[177]18[167]S[178]20:[137]660
630 [153]"";
635 [139][165]S(S)[178].[175]T[178]18[167][153]"DEF ";:[137]660
640 [139][165]S(S)[178].[167][153]" ";:[137]660
645 [139]T[178]18[167][153]"PRINT ";:[137]660
650 [153]" ";
660 [153]"ONCMDWAIT";:[130]:[142]
63000 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63001 [151]631,13:[151]632,13:[151]198,2