Add files via upload
This commit is contained in:
tilleul
GitHub
parent
afc7cb3380
commit
2ce2c711e9
|
|
@ -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
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue