home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1986 March / 86_mar.atr / advent2.lst < prev    next >
File List  |  2023-02-26  |  815b  |  1 lines

  1. 920 FOR X=N1 TO 72:READ A:CC$(X)=CHR$(A):NEXT X¢930 FOR X=N1 TO 35:READ A:L$(X)=CHR$(A):NEXT X¢1480 A=USR(ADR(L$),LEN(IN$),ADR(IN$)):IF A=N0 THEN ? :? "What?":GOTO 1260¢1490 REM ¢1500 V$=IN$(N1,A):N$=IN$(A+N2)¢1620 Y=USR(ADR(CC$),ADR(N$),ADR(NN$),LEN(NN$))¢1630 REM ¢1640 Z=USR(ADR(CC$),ADR(V$),ADR(VB$),LEN(VB$))¢1650 REM ¢31999 REM *********CC$ DATA********¢32000 DATA 104,104,133,204,104,133,203,104,133,206,104,133,205,104,104,133,207,162,0,142,255,6,134,213,232¢32010 DATA 160,0,177,203,209,205,208,8,200,192,3,208,245,134,212,96,173,255,6,24,105,3,197,207,240¢32020 DATA 16,141,255,6,165,205,24,105,3,133,205,144,217,230,206,176,213,169,0,133,212,96¢32049 REM ¢32090 DATA 104,104,104,141,255,6,104,133,204,104,133,203,160,0,177,203,201,32,240,8,200,204,255,6,208¢32100 DATA 244,160,0,132,212,169,0,133,213,96¢