10 MEMSET&H1400:WIDTH20,16
20 CLS:PRINT"Initialize:":PRINT"   Space Bar":PRINT"Continue:":PRINT"   Return";
30 A$=INPUT$(1):IFA$=CHR$(32)THEN50ELSEIFA$=CHR$(13)THEN100ELSE30
50 CLS:LOCATE2,1,0:PRINT"Wait 20 Seconds"
60 FORI=&H1000 TO&H13B5:READJ$:J=VAL("&H"+J$):POKEI,J:NEXT
100 CLS:PRINT"Message:":PRINT"   Space Bar":PRINT"Continue:":PRINT"   Return";
110 A$=INPUT$(1):IFA$=CHR$(32)THEN200ELSEIFA$=CHR$(13)THEN300ELSE100
200 CLS:PRINT"Enter Message:":LINEINPUTM$
210 M$=LEFT$(M$,76):M=LEN(M$):IFM<10THENM$=LEFT$(M$+SPACE$(10),10):M=10
220 POKE&HB00,M
230 CLS:LOCATE2,1,0:PRINT"Wait";:PRINTCINT((M+10)/2.5);:PRINT"Seconds"
240 FORI=1TOM:N$=MID$(M$,I,1):N=ASC(N$)-32:IFN<1ORN>94THENN=95
250 A=&HC00+(I-1)*10:B=&H1000+(N-1)*10
260 FORJ=0TO9:POKE(A+J),PEEK(B+J):NEXTJ,I
270 FORI=1TO10:N$=MID$(M$,I,1):N=ASC(N$)-32:IFN<1ORN>94THENN=95
280 A=&HC00+(I+M-1)*10:B=&H1000+(N-1)*10
290 FORJ=0TO9:POKE(A+J),PEEK(B+J):NEXTJ,I
300 CLS:RESTORE2000
310 FORI=3TO6:READJ:PSET(0,16),1:FORX=0TO120STEPI
320 Y=SQR(J*(1-(X-60)^2/3601))+16:LINE-(X,Y),PSET:NEXTX,I
330 FORI=6TO3STEP-1:READJ:PSET(0,16),1:FORX=0TO120STEPI
340 Y=-SQR(J*(1-(X-60)^2/3601))+16:LINE-(X,Y),PSET:NEXTX,I
350 PSET(112,7),1:LINE-(119,0),PSET:LINE-(119,31),PSET:LINE-(112,24),PSET
400 M=PEEK(&HB00):N$=""
410 E=(M*10-1)MOD256:F=(M*10-1)\256+1
420 ONF GOTO500,530,560
500 POKE&H11E,12:FORI=0TOE:POKE&H11F,I:LOCATE3,2,0:PRINTN$;:NEXT
510 GOTO 500
530 POKE&H11E,12:FORI=0TO255:POKE&H11F,I:LOCATE3,2,0:PRINTN$;:NEXT
540 POKE&H11E,13:FORI=0TOE:POKE&H11F,I:LOCATE3,2,0:PRINTN$:NEXT
550 GOTO530
560 POKE&H11E,12:FORI=0TO255:POKE&H11F,I:LOCATE3,2,0:PRINTN$:NEXT
570 POKE&H11E,13:FORI=0TO255:POKE&H11F,I:LOCATE3,2,0:PRINTN$:NEXT
580 POKE&H11E,14:FORI=0TOE:POKE&H11F,I:LOCATE3,2,0:PRINTN$:NEXT
590 GOTO560
1000 DATA 00,00,BF,BF,BF,00,00,0,0,00,0C,1A,19,00,0C,1A,19,00,0,0,66,FF,FF,66,66,FF,FF,66,0,0
1010 DATA 66,EF,89,FF,FF,91,F7,66,0,0,C6,E7,73,38,1C,CE,E7,63,0,0,70,FA,FF,99,B9,6F,C6,B0,0,0
1020 DATA 00,00,17,17,0F,00,00,00,0,0,00,00,3C,7E,FF,81,81,00,0,0,00,81,81,FF,7E,3C,00,00,0,0
1030 DATA 66,66,18,FF,FF,18,66,66,0,0,00,18,18,7E,7E,18,18,00,0,0,00,00,B8,B8,78,00,00,00,0,0
1040 DATA 00,18,18,18,18,18,18,00,0,0,00,00,E0,E0,E0,00,00,00,0,0,C0,E0,70,38,1C,0E,07,03,0,0
1050 DATA 3C,7E,E3,91,89,C7,7E,3C,0,0,80,84,86,FF,FF,FF,80,80,0,0,C6,E7,F7,91,91,DF,DF,CE,0,0
1060 DATA 63,E3,E3,89,8D,FF,FB,71,0,0,60,70,78,4C,46,FF,FF,FF,0,0,6F,EF,EF,89,89,FB,FB,73,0,0
1070 DATA 3C,7E,FF,89,89,FB,FB,70,0,0,03,03,E3,F1,F9,0D,07,03,0,0,76,F7,FF,89,89,FF,F7,76,0,0
1080 DATA 0E,DF,DF,91,91,FF,7E,3C,0,0,00,00,EE,EE,EE,00,00,00,0,0,00,80,80,B6,B6,76,00,00,0,0
1090 DATA 00,18,3C,66,66,42,42,00,0,0,00,66,66,66,66,66,66,00,0,0,00,42,42,66,66,3C,18,00,0,0
1100 DATA 06,07,B1,B1,B1,1F,1F,0E,0,0,7E,FF,81,BD,BD,FD,01,FF,0,0,F8,FC,26,23,23,26,FC,F8,0,0
1110 DATA C3,FF,FF,89,89,FF,F6,70,0,0,3C,7E,FF,81,81,81,87,06,0,0,C3,FF,FF,81,81,FF,7F,3C,0,0
1120 DATA 81,FF,FF,99,BD,81,C3,C3,0,0,81,FF,FF,99,3D,01,03,03,0,0,3C,7E,FF,C3,81,99,F9,F8,0,0
1130 DATA 81,FF,FF,91,10,10,FF,FF,0,0,00,00,81,FF,FF,81,00,00,0,0,30,70,C0,80,C1,7F,3F,01,0,0
1140 DATA 81,FF,FF,B1,18,3C,66,C3,0,0,81,FF,FF,81,80,80,C0,C0,0,0,FF,FE,1C,38,38,1C,FE,FF,0,0
1150 DATA FF,FF,0E,1C,38,70,FF,FF,0,0,3C,7E,FF,81,81,FF,7E,3C,0,0,83,FF,FF,91,11,1F,1F,0E,0,0
1160 DATA 3C,7E,FF,81,A1,61,C2,BC,0,0,83,FF,FF,91,31,7F,DF,8E,0,0,CC,CE,8F,89,91,F1,73,33,0,0
1170 DATA 03,03,81,FF,FF,81,03,03,0,0,3F,7F,FF,80,80,FF,7F,3F,0,0,1F,3F,60,C0,C0,60,3F,1F,0,0
1180 DATA FF,7F,38,1C,1C,38,7F,FF,0,0,83,C7,AE,1C,38,75,E3,C1,0,0,07,0F,98,F0,F0,98,0F,07,0,0
1190 DATA C3,E3,F1,B9,9D,8F,C7,C3,0,0,00,FF,FF,FF,81,81,81,00,0,0,03,07,0E,DC,3B,70,E0,C0,0,0
1200 DATA 00,81,81,81,FF,FF,FF,00,0,0,00,1C,1E,03,03,1E,1C,00,0,0,C0,C0,C0,C0,C0,C0,C0,C0,0,0
1210 DATA 00,00,00,1E,1D,1D,00,00,0,0,60,F4,F4,94,94,FC,F8,F0,0,0,FF,FF,FF,84,84,FC,FC,78,0,0
1220 DATA 78,FC,FC,84,84,84,9C,18,0,0,78,FC,FC,84,84,FF,FF,FF,0,0,78,FC,FC,A4,A4,BC,B8,30,0,0
1230 DATA 20,20,FC,FE,FF,21,21,01,0,0,60,F6,F7,9D,95,F7,F3,61,0,0,FF,FF,FF,04,04,FC,F8,F0,0,0
1240 DATA 80,84,84,FD,FD,FD,80,80,0,0,60,E0,80,80,80,FD,7D,3D,0,0,FF,FF,FF,60,70,D8,CC,84,0,0
1250 DATA 80,81,81,FF,FF,FF,80,80,0,0,FC,FC,04,FC,FC,04,F8,F0,0,0,FC,FC,FC,04,04,FC,F8,F0,0,0
1260 DATA 78,FC,FC,84,84,FC,FC,78,0,0,FC,FC,FC,24,24,3C,3C,18,0,0,18,3C,3C,24,24,FC,FC,FC,0,0
1270 DATA FC,FC,FC,08,04,04,1C,18,0,0,D8,DC,9C,94,A4,E4,EC,6C,0,0,04,04,3F,7F,FF,84,C4,C4,0,0
1280 DATA 3C,7C,FC,80,80,FC,FC,FC,0,0,1C,3C,7C,C0,C0,7C,3C,1C,0,0,7C,FC,C0,70,70,C0,FC,7C,0,0
1290 DATA 84,8C,5C,38,70,E8,C4,84,0,0,0C,DC,DC,90,90,FC,7C,3C,0,0,8C,CC,E4,F4,BC,9C,CC,C4,0,0
1300 DATA 00,18,18,7E,E7,C3,81,00,0,0,00,00,00,E7,E7,00,00,00,0,0,00,81,C3,E7,7E,18,18,00,0,0
1310 DATA 0C,06,03,06,06,0C,06,03,0,0,00,00,00,00,00,00,00,00,0,0
2000 DATA 255,168,80,15,15,80,168,255
