bitmap-editor/stranger_things/003 - Inline Text Modes/meeting_the_beadmaster.bas

0 PRINT CHR$(4)"BLOAD INLINE_TEXT_MODES": CALL 40672: TEXT: NORMAL: HOME: PRINT "PLEASE WAIT ... BUILDING SPRITES ...": GOSUB 1000 : CALL 768

1 HOME: HTAB 6: PRINT "*** MEETING THE BEADMASTER ***": PRINT: HTAB 6: PRINT "A SHORT ANIMATION (C) 2022 FVL": PRINT: HTAB 12 : PRINT "-- JUST FOR FUN --"

2 PRINT: PRINT "THIS SHORT ANIMATION DEMONSTRATES THE   POSSIBILITIES TO USE " + CHR$(15) + "PRINT" + CHR$(14) + " AS A WAY TO  DISPLAY SPRITES ON THE LORES SCREEN" + CHR$(6):  PRINT  SPC(14) + "SUPER FAST !" ; SPC(14) + CHR$(14)
3 PRINT "THE CODE IS " + CHR$(15) + "99.99% PURE APPLESOFT" + CHR$(14) + ". ONLY A VERY SHORT 6502 ROUTINE IS NEEDED IN  ORDER TO REDIRECT SCREEN OUTPUT AND     HANDLE SOME SPECIAL CHARACTERS."

4 PRINT: HTAB 9: PRINT CHR$(15) + "NO AMPERSAND ROUTINE !" + CHR$(14) + CHR$(13)+ "   ONLY REGULAR APPLESOFT COMMANDS !"

5 PRINT: PRINT "FOR MORE INFO SEE " + CHR$(15) + "STRANGER THINGS" + CHR$(14) + " PART 3  ON HTTPS://GITHUB.COM/TILLEUL/APPLE2"


7 PRINT: PRINT "ANIMATION SPEED ?": INPUT "(0 IS FASTEST -- 100 IS NORMAL) "; S: GR: HOME


8 V=13: COLOR=4: HLIN 0,39 AT 38: H=1 :  VTAB 24: PRINT "SPACE - WALK       ANY OTHER KEY - STOP";
9 COLOR=13: FOR I=1 TO 20: X=RND(1)*40: Y=RND(1)*20: PLOT X,Y: NEXT: VTAB 1: HTAB RND(1)*30: PRINT MN$



10 GOSUB 998: PRINT A$

20 GOSUB 200: K=PEEK(49152): IF K=160 AND H<31 THEN GOSUB 300: GOSUB 100: H=H+6: GOTO 20
30 IF K=160 THEN POKE 49168,0: GOTO 500


80 F=RND(1)*50: IF F<2 THEN GOSUB 998: PRINT H$(F): Q=RND(1)*1000/(3-2*INT(F)): FOR I=0 TO Q: NEXT: GOSUB 998: PRINT X$
90 GOTO 20





100 GOSUB 998: PRINT B$
110 GOSUB 998: PRINT C$
120 GOSUB 998: PRINT D$
130 GOSUB 998: PRINT E$
140 RETURN

200 Z=Z-1: IF Z>0 THEN RETURN
206 F=INT(RND(1)*20) : GOSUB 300: Z=RND(1)*40+15: ON F GOTO 210, 220, 230, 240, 250, 260, 270, 280
208 Z=0
209 RETURN
210 PRINT "I DON'T LIKE THIS NEIGHBORHOOD": RETURN
220 PRINT "THIS PLACE GIVES ME THE CREEPS": RETURN
230 PRINT "I'M ON TIME ! WHERE IS HE ?": RETURN
240 PRINT "HE SAID MIDNIGHT BY THE OLD JUNKYARD": RETURN
250 PRINT "BE STRONG, MAN, THIS WILL GO WELL": RETURN
260 PRINT "WHAT ARE YOU AFRAID OF ? NOTHING CAN    HAPPEN": RETURN
270 PRINT "HE'S LATE ! WHY IS HE LATE ?": RETURN
280 PRINT "MAYBE HE WON'T COME AFTER ALL ?": RETURN
290 PRINT "WHAT WAS THAT SOUND ? I DON'T SEE ANYTHING": RETURN

300 POKE 35,23: HOME: POKE 35,24: VTAB 21: RETURN



500 HOME: GOSUB 998: PRINT H$(0)

510 VTAB 14: HTAB 2: PRINT F$: VTAB 21: SPEED=1: HTAB 30: PRINT "?????????";: SPEED=255

515 S=S*15: GOSUB 998: PRINT Y$: GOSUB 300
516 GOSUB 999: GOSUB 300: HTAB 20 : PRINT "ARE YOU URIBRAS ?" : S=S*2
517 GOSUB 999: GOSUB 300: HTAB 20 : PRINT "DO YOU KNOW HIM ?" 
518 GOSUB 999: GOSUB 300: HTAB 15 : PRINT "CAN YOU TAKE ME TO HIM ?"
519 GOSUB 999: GOSUB 300: HTAB 15 : PRINT "I HAVE BROUGHT THE BEAD !" 


520 GOSUB 999: S=S/30: GOSUB 300: HTAB 20: PRINT "CAN YOU ... ???": VTAB 14: HTAB 7: PRINT G$: GOSUB 999
530 VTAB 14: HTAB 7: PRINT H$: GOSUB 999
540 VTAB 18: HTAB 12: PRINT I$: GOSUB 999
550 VTAB 17: HTAB 11: PRINT J$: GOSUB 999
560 VTAB 17: HTAB 11: PRINT K$: GOSUB 999 : S=S/2: GOSUB 300: HTAB 20: PRINT ".**.. ** ** ... ***"

570 FOR I=0 TO 30: VTAB 14: HTAB 1: PRINT L$: GOSUB 999: VTAB 17: HTAB 1: PRINT M$: GOSUB 999: NEXT


580 FOR I= 16 TO 19: VTAB I: HTAB 11: PRINT CHR$(15) + "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";: NEXT: VTAB 14: HTAB 1: PRINT N$

590 FOR I=V-1 TO 16: HTAB H: VTAB I: GOSUB 999: PRINT H$(2): NEXT

600 HOME: VTAB 21: ON INT(RND(1)*5) GOTO 620, 630, 640, 650
610 HTAB 5: PRINT "MAN, A SIMPLE YES OR NO WAS ENOUGH": GOTO 990
620 HTAB 10: PRINT "YOU KNOW THAT HURTS, RIGHT ?": GOTO 990
630 HTAB 3: PRINT "BUT ... BUT ... I HAD THE ... BEAD !": GOTO 990
640 PRINT "GOORGLL.. GUH ... ARG... GHLU.. GGUGNL.": GOTO 990
650 PRINT "I SEE ... YOU'RE NOT THE TALKATIVE TYPE" : GOTO 990

990 CALL 43089 : PRINT: PRINT "*** THE END ***" : VTAB 23: END: REM RESTORE DOS AND EXIT

998 HTAB H: VTAB V
999 FOR J=0 TO S: NEXT: RETURN

1000 PRINT F;" ";: F=F+1: A$=CHR$(15)+"@"+CHR$(16)+"@"+CHR$(14)+"8888"+CHR$(15)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1010 A$=A$+"@"+CHR$(14)+"8;4;4"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1020 A$=A$+"@P"+CHR$(16)+"P[["+CHR$(15)+"P@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1030 A$=A$+"QQ"+CHR$(16)+"YYY"+CHR$(15)+"Q"+CHR$(14)+"0"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1040 A$=A$+"K"+CHR$(14)+";"+CHR$(6)+"))99"+CHR$(15)+"K"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1050 A$=A$+"@"+CHR$(6)+CHR$(34)+"&"+CHR$(15)+"@"+CHR$(6)+"7"+CHR$(15)+"G@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1060 A$=A$+"@"+CHR$(6)+"RP"+CHR$(15)+"@"+CHR$(6)+"VP"+CHR$(15)+"@"+CHR$(14)

1069 PRINT F;" ";: F=F+1
1070 B$=CHR$(15)+"@@@"+CHR$(16)+"@"+CHR$(14)+"8888"+CHR$(15)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1080 B$=B$+"@@@"+CHR$(14)+"8;4;4"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1090 B$=B$+"@@PP"+CHR$(16)+"P[["+CHR$(15)+"P@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1100 B$=B$+"@QQ"+CHR$(16)+"YYYY"+CHR$(15)+"Q"+CHR$(14)+"0"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1110 B$=B$+CHR$(15)+"@K"+CHR$(14)+";"+CHR$(15)+"&"+CHR$(6)+"))99"+CHR$(15)+"K"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1120 B$=B$+"@@@@&"+CHR$(6)+"&"+CHR$(15)+"G@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1130 B$=B$+"@@@@"+CHR$(6)+"RU"+CHR$(15)+"E@@"+CHR$(14)

1139 PRINT F;" ";: F=F+1
1140 C$=CHR$(15)+"@@@@"+CHR$(16)+"@"+CHR$(14)+"8888"+CHR$(15)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1150 C$=C$+"@@@@"+CHR$(14)+"8;4;4"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1160 C$=C$+"@@@@P"+CHR$(16)+"P[["+CHR$(15)+"P@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1170 C$=C$+"@@@QQ"+CHR$(16)+"YYY"+CHR$(15)+"Q"+CHR$(14)+"0"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1180 C$=C$+CHR$(15)+"@@@K"+CHR$(14)+";"+CHR$(6)+"))99"+CHR$(15)+"K"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1190 C$=C$+"@@@@@"+CHR$(6)+"2&&"+CHR$(15)+"@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1200 C$=C$+"@@@@"+CHR$(6)+"U"+CHR$(15)+"G@"+CHR$(6)+"VP"+CHR$(15)+"@"+CHR$(14)

1209 PRINT F;" ";: F=F+1
1210 D$=CHR$(15)+"@@@@@"+CHR$(16)+"@"+CHR$(14)+"8888"+CHR$(15)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1220 D$=D$+      "@@@@@"+CHR$(14)+"8;4;4"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1230 D$=D$+      "@@@@PP"+CHR$(16)+"P[["+CHR$(15)+"P@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1240 D$=D$+      "@@@QQ"+CHR$(16)+"YYYY"+CHR$(15)+"Q"+CHR$(14)+"0"+CHR$(15) +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1250 D$=D$+      "@@@K"+CHR$(14)+";"+CHR$(15)+"&"+CHR$(6)+"))99"+CHR$(15)+"K" +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1260 D$=D$+      "@@@@@@"+CHR$(6)+"V&7"+CHR$(15)+"@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1270 D$=D$+      "@@@@@@E"+CHR$(6)+"VP"+CHR$(15)+"@@"+CHR$(14)

1279 PRINT F;" ";: F=F+1
1280 E$=CHR$(15)+"@@@@@@@"+CHR$(16)+"@"+CHR$(14)+"8888"+CHR$(15)+"H" +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1290 E$=E$      +"@@@@@@@"+CHR$(14)+"8;4;4"+CHR$(15)+"@" +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1300 E$=E$      +"@@@@@@@P"+CHR$(16)+"P[["+CHR$(15)+"P@" +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1310 E$=E$      +"@@@@@@QQ"+CHR$(16)+"YYY"+CHR$(15)+"Q"+CHR$(14)+"0"+CHR$(15) +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1320 E$=E$      +"@@@@@@K"+CHR$(14)+";"+CHR$(6)+"))99"+CHR$(15)+"K" +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1330 E$=E$      +"@@@@@@@"+CHR$(6)+CHR$(98)+"&"+CHR$(15)+"@"+CHR$(6)+"7"+CHR$(15)+"G@" +CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1340 E$=E$      +"@@@@@@@"+CHR$(6)+"RP"+CHR$(15)+"@"+CHR$(6)+"VP"+CHR$(15)+"@"+CHR$(14)

1349 PRINT F;" ";: F=F+1
1350 X$ = CHR$(15)+"@"+CHR$(16)+"@"+CHR$(14)+"8888"+CHR$(15)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1360 X$ = X$+"@"+CHR$(14)+"8;4;4"+CHR$(15)+"@"+CHR$(14)

1369 PRINT F;" ";: F=F+1
1370 H$(0) = CHR$(15)+"H"+CHR$(14)+"8888"+CHR$(16)+"@"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1380 H$(0) = H$(0)+"@"+CHR$(14)+"4;4;8"+CHR$(15)+"@"+CHR$(14)


1389 PRINT F;" ";: F=F+1
1390 H$(1) = CHR$(15)+"@"+CHR$(16)+"@"+CHR$(14)+"8888"+CHR$(15)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1400 H$(1) = H$(1)+"@"+CHR$(14)+"8;;;;"+CHR$(15)+"@"+CHR$(14)
1405 H$(2) = CHR$(15)+"@@@@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)+H$(0)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1406 H$(2) = H$(2) + CHR$(15)+"@P"+CHR$(16)+"[[P"+CHR$(15)+"P@"+CHR$(14)




1409 PRINT F;" ";: F=F+1
1410 Y$=CHR$(15)+"H"+CHR$(14)+"8888"+CHR$(16)+"@"+CHR$(15)+"@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1420 Y$=Y$+"@"+CHR$(14)+"4;4;8"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1430 Y$=Y$+"@P"+CHR$(16)+"[[P"+CHR$(15)+"P@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1440 Y$=Y$+CHR$(14)+"0"+CHR$(15)+"Q"+CHR$(16)+"YYY"+CHR$(15)+"QQ"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1450 Y$=Y$+"K"+CHR$(6)+"99))"+CHR$(14)+";"+CHR$(15)+"K"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1460 Y$=Y$+"@G"+CHR$(6)+"7"+CHR$(15)+"@"+CHR$(6)+"&"+CHR$(98)+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
1470 Y$=Y$+"@"+CHR$(6)+"PV"+CHR$(15)+"@"+CHR$(6)+"PR"+CHR$(15)+"@"+CHR$(14)





REM HTAB 3
1999 PRINT F;" ";: F=F+1
2000 F$=CHR$(15)+"@@  @@@H"+CHR$(16)+"@"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2010 F$=F$+CHR$(34)+CHR$(6)+CHR$(98)+CHR$(15)+"@H"+CHR$(16)+"I"+CHR$(15)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2020 F$=F$+"B"+CHR$(14)+"22"+CHR$(15)+"B@"+CHR$(16)+"H"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2030 F$=F$+" ++"+CHR$(6)+" "+CHR$(15)+"@"+CHR$(16)+"H"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2040 F$=F$+CHR$(14)+"2"+CHR$(15)+"&"+CHR$(34)+""+CHR$(34)+""+CHR$(34)+"F"+CHR$(16)+"K"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2050 F$=F$+CHR$(15)+"  "+CHR$(34)+CHR$(6)+CHR$(98)+CHR$(15)+CHR$(34)+"&@"+CHR$(16)+"H"+CHR$(14)


REM HTAB 7
2059 PRINT F;" ";: F=F+1
2060 G$=CHR$(15)+"H"+CHR$(16)+"HH@@"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2070 G$=G$+"@I"+CHR$(16)+"IXHH"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2080 G$=G$+"@H"+CHR$(16)+"HYHH"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2090 G$=G$+"@@"+CHR$(16)+"HHYH@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2100 G$=G$+CHR$(16)+"FBB"+CHR$(14)+"6"+CHR$(16)+"@@HHHYHH"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2110 G$=G$+"@@@@HH"+CHR$(14)

REM HTAB 7
2119 PRINT F;" ";: F=F+1
2120 H$=CHR$(15)+"@@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2130 H$=H$+"@@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2140 H$=H$+"@@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2150 H$=H$+"@@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2160 H$=H$+CHR$(16)+"@@@X"+CHR$(15)+"@"+CHR$(16)+"@"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2170 H$=H$+"HH"+CHR$(14)

REM HTAB 12 VTAB 5
2179 PRINT F;" ";: F=F+1
2180 I$=CHR$(16)+"PYP@"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2190 I$=I$+"IH"+CHR$(14)

REM HTAB 11 VTAB 4
2199 PRINT F;" ";: F=F+1
2200 J$=CHR$(15)+"@"+CHR$(16)+"PPP"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2210 J$=J$+"I@"+CHR$(16)+"P"+CHR$(15)+"@I"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2220 J$=J$+"I"+CHR$(16)+"PPP"+CHR$(15)+"I"+CHR$(14)

REM HTAB 11 VTAB 4
2229 PRINT F;" ";: F=F+1
2230 K$=CHR$(15)+"@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2240 K$=K$+CHR$(14)+"PP"+CHR$(16)+"]"+CHR$(14)+"PP"+CHR$(15)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2250 K$=K$+"@@M@@"+CHR$(14)

REM HTAB 1: VTAB 1
2259 PRINT F;" ";: F=F+1
2260 L$=CHR$(15)+"@  @@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2270 L$=L$+"@"+CHR$(34)+CHR$(6)+CHR$(98)+CHR$(15)+"@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2280 L$=L$+"B"+CHR$(14)+"22"+CHR$(15)+"B@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2290 L$=L$+" ++"+CHR$(6)+" "+CHR$(15)+"@@@@@"+CHR$(14)+"PPPPPPPPPPPPPPPPPPPPPPPPPPPPPP"
2300 L$=L$+"2"+CHR$(16)+"FBB"+CHR$(14)+"6"+CHR$(16)+"@@@@"+CHR$(14)+"]"+CHR$(16)+"YYYYYYYYYYYYYYYYYYYYYYYYYYYYYY"
2310 L$=L$+CHR$(15)+"@@"+CHR$(34)+""+CHR$(34)+""+CHR$(6)+""+CHR$(98)+""+CHR$(15)+""+CHR$(34)+"& @M"+CHR$(14)+"YYYYYYYYYYYYYYYYYYYYYYYYYYYYYY"+CHR$(14)

REM HTAB 1: VTAB 4
2319 PRINT F;" ";: F=F+1
2320 M$=CHR$(15)+"@ ++"+CHR$(6)+" "+CHR$(15)+"@@@@@@"+CHR$(16)+"PPPPPPPPPPPPPPPPPPPPPPPPPPPPP"+CHR$(14)
2330 M$=M$+CHR$(15)+"@"+CHR$(14)+"2"+CHR$(16)+"FBF"+CHR$(14)+"0"+CHR$(16)+"@@@@Y"+CHR$(14)+"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]"+CHR$(14)
2340 M$=M$+CHR$(15)+"@@"+CHR$(34)+""+CHR$(34)+""+CHR$(6)+""+CHR$(98)+""+CHR$(15)+""+CHR$(34)+"& @@I"+CHR$(16)+"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]"+CHR$(14)


2349 PRINT F;" ";: F=F+1
2350 N$=CHR$(15)+"@@@@  @@@H"+CHR$(16)+"@"+CHR$(13)
2360 N$=N$+CHR$(15)+"@@@@@"+CHR$(34)+""+CHR$(6)+""+CHR$(98)+""+CHR$(15)+"@H"+CHR$(16)+"I"+CHR$(15)+"H"+CHR$(13)
2370 N$=N$+"@@@@B"+CHR$(14)+"22"+CHR$(15)+"B@"+CHR$(16)+"H"+CHR$(15)+"@"+CHR$(13)
2380 N$=N$+"@@@@ ++"+CHR$(6)+" "+CHR$(15)+"@"+CHR$(16)+"H"+CHR$(15)+"@"+CHR$(13)
2390 N$=N$+"@@@"+CHR$(14)+"2"+CHR$(15)+"&"+CHR$(34)+CHR$(34)+CHR$(34)+"F"+CHR$(16)+"K"+CHR$(15)+"@"+CHR$(13)
2400 N$=N$+"@@  "+CHR$(34)+CHR$(6)+CHR$(98)+CHR$(15)+CHR$(34)+"&@"+CHR$(16)+"H"+CHR$(15)+"@"+CHR$(14)

2409 PRINT F;" ";: F=F+1
2410 MN$=CHR$(15)+"@"+CHR$(14)+"PPP"+CHR$(15)+"@@@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2420 MN$=MN$+"@@M"+CHR$(14)+"]]P"+CHR$(15)+"@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2430 MN$=MN$+"@@@M"+CHR$(14)+"]]P"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2440 MN$=MN$+"@@@@"+CHR$(14)+"]]]"+CHR$(15)+"@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2450 MN$=MN$+"@@@"+CHR$(14)+"P]]"+CHR$(15)+"M@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2460 MN$=MN$+"@@"+CHR$(14)+"P]]"+CHR$(15)+"M@@"+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(10)
2470 MN$=MN$+"@MMM@@@@"+CHR$(14)



3000 RETURN