10 MEMSET&H1000
20 WIDTH 20,16
30 CLS:PRINT"Initialize:":PRINT"   Space Bar":PRINT"Continue:":PRINT"   Return";
40 A$=INPUT$(1):IFA$=CHR$(32)THEN50ELSEIFA$=CHR$(13)THEN100ELSE30
50 CLS:LOCATE2,1,0:PRINT"Wait 5 Seconds"
60 FORI=&HD00 TO&HDD7
70 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$,24)+" ":M=LEN(M$)
220 IFM<9THENM$=LEFT$(M$+SPACE$(9),9):M=9
230 POKE&HF00,M
240 CLS:LOCATE2,1,0:PRINT"Wait";:PRINTCINT(M*2/3);:PRINT"Seconds"
250 FORI=1TOM:N$=MID$(M$,I,1):N=ASC(N$)-64:IFN<1ORN>26THENN=27
260 A=2806+I*10:B=3320+N*8
270 FORJ=0TO7:C=PEEK(B+J):POKE(A+J),C:POKE(A+J+M*10),C:NEXTJ
280 POKE(A+8),0:POKE(A+9),0:POKE(A+8+M*10),0:POKE(A+9+M*10),0:NEXTI
300 RESTORE2000:CLS
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(&HF00)
410 POKE&H11E,&HB
420 FORI=0TOM*10-1:POKE&H11F,I:LOCATE3,2,0:PRINT"אבגדהוזחטיךכלם";:NEXTI
430 GOTO420
500 REM
1000 DATA F8,FC,26,23,23,26,FC,F8,C3,FF,FF,89,89,FF,F6,70,3C,7E,FF,81,81,81,87,6
1010 DATA C3,FF,FF,81,81,FF,7E,3C,81,FF,FF,99,BD,81,C3,C3,81,FF,FF,99,3D,1,3,3
1020 DATA 3C,7E,FF,C3,81,99,F9,F8,81,FF,FF,91,10,10,FF,FF,0,0,81,FF,FF,81,0,0
1030 DATA 30,70,C0,80,C1,7F,3F,1,81,FF,FF,B1,18,3C,66,C3,81,FF,FF,81,80,80,C0,C0
1040 DATA FF,FE,1C,38,38,1C,FE,FF,FF,FF,E,1C,38,70,FF,FF,3C,7E,FF,81,81,FF,7E,3C
1050 DATA 83,FF,FF,91,11,1F,1F,E,3C,7E,FF,81,A1,61,C2,BC,83,FF,FF,91,31,7F,DF,8E
1060 DATA CC,CE,8F,89,91,F1,73,33,3,3,81,FF,FF,81,3,3,3F,7F,FF,80,80,FF,7F,3F
1070 DATA 1F,3F,60,C0,C0,60,3F,1F,FF,7F,38,1C,1C,38,7F,FF,83,C7,AE,1C,38,75,E3,C1
1080 DATA 7,F,98,F0,F0,98,F,7,C3,E3,F1,B9,9D,8F,C7,C3,0,0,0,0,0,0,0,0
2000 DATA 255,168,80,15,15,80,168,255