diff --git a/stranger_things/003 - Inline Text Modes/meeting_the_beadmaster.bas b/stranger_things/003 - Inline Text Modes/meeting_the_beadmaster.bas new file mode 100644 index 0000000..7cfcad4 --- /dev/null +++ b/stranger_things/003 - Inline Text Modes/meeting_the_beadmaster.bas @@ -0,0 +1,251 @@ +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 + + diff --git a/stranger_things/003 - Inline Text Modes/meeting_the_beadmaster.mkv b/stranger_things/003 - Inline Text Modes/meeting_the_beadmaster.mkv new file mode 100644 index 0000000..82a872a Binary files /dev/null and b/stranger_things/003 - Inline Text Modes/meeting_the_beadmaster.mkv differ diff --git a/stranger_things/003 - Inline Text Modes/st3_inline_text_modes.dsk b/stranger_things/003 - Inline Text Modes/st3_inline_text_modes.dsk new file mode 100644 index 0000000..f08644c Binary files /dev/null and b/stranger_things/003 - Inline Text Modes/st3_inline_text_modes.dsk differ