start tok64 d64-SlxWeL
1000 POKE53280,11:POKE53281,0
1020 PRINT"{clear}{space*10}{cyan}{cm a}{sh asterisk*17}{cm s}"
1030 PRINT"{space*10}{sh -} {light blue}bam viewer {yellow}v{white}1{yellow}.{white}0{cyan} {sh -}
1040 PRINT"{space*10}{cm z}{sh asterisk*17}{cm x}
1050 PRINT"{down*2}{156}{space*14}created by:
1060 PRINT"{down}{yellow}{space*14}rocky moore"
1070 PRINT"{down*5}{cyan}{space*5}insert disk and press any key."
1080 PRINT"{down*2}{space*14}{yellow}<{white}*{yellow}>{cyan} to quit."
1090 POKE198,0:WAIT198,1:GETa$:IFa$="*"THENPRINT"{clear}{down*2}";:NEW
1100 PRINT"{clear}{space*2}{cyan}{cm a}{sh asterisk*17}{cm s}"
1110 PRINT"{yellow}20{cyan}{sh -}{yellow}{space*17}{cyan}{sh -} {light blue}{reverse on}+{reverse off}{yellow} ={cyan}used{space*2}{light blue}+{yellow} ={cyan}free"
1120 PRINT"{light blue}19{cyan}{sh -}{light blue}{space*17}{cyan}{cm z}{sh asterisk*6}{cm s}"
1130 PRINT"{light blue}18{cyan}{sh -}{light blue}{space*24}{cyan}{cm z}{sh asterisk*5}{cm s}
1140 PRINT"{light blue}17{cyan}{sh -}{light blue}{space*30}{cyan}{cm z}{sh asterisk*4}{cm s}
1150 PRINT"{light blue}16{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1160 PRINT"{yellow}15{cyan}{sh -}{yellow}{space*35}{cyan}{sh -}
1170 PRINT"{light blue}14{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1180 PRINT"{light blue}13{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1190 PRINT"{light blue}12{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1200 PRINT"{light blue}11{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1210 PRINT"{yellow}10{cyan}{sh -}{yellow}{space*35}{cyan}{sh -}
1220 PRINT"{light blue} 9{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1230 PRINT"{light blue} 8{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1240 PRINT"{light blue} 7{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1250 PRINT"{light blue} 6{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1260 PRINT"{yellow} 5{cyan}{sh -}{yellow}{space*35}{cyan}{sh -}
1270 PRINT"{light blue} 4{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1280 PRINT"{light blue} 3{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1290 PRINT"{light blue} 2{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1300 PRINT"{light blue} 1{cyan}{sh -}{light blue}{space*35}{cyan}{sh -}
1310 PRINT"{yellow} 0{cyan}{sh -}{yellow}{space*35}{cyan}{sh -}
1320 PRINT"{space*2}{cyan}{cm z}{sh asterisk*35}{cm x}
1330 PRINT"{space*12}{yellow}1{light blue}{1*4}{yellow}1{light blue}{1*4}{yellow}2{light blue}{2*4}{yellow}2{light blue}{2*4}{yellow}3{light blue}{3*4}{yellow}3
1340 PRINT"{space*3}{light blue}1234{yellow}5{light blue}6789{yellow}0{light blue}1234{yellow}5{light blue}6789{yellow}0{light blue}1234{yellow}5{light blue}6789{yellow}0{light blue}1234{yellow}5{home}"
1350 OPEN1,8,15,"u9":PRINT#1,"i0":OPEN2,8,2,"#":INPUT#1,e:IFe>19THENCLOSE2:CLOSE1:RUN
1360 PRINT#1,"u1:2 0 18 0":INPUT#1,e:IFe>19THENCLOSE2:CLOSE1:RUN
1370 PRINT#1,"b-p:2 4"
1371 SYS4053:
1400 CLOSE2:CLOSE1
1441 SYS4086:
1481 POKE198,0:WAIT198,1:RUN
1490 END
stop tok64
(bastext 1.0)