Applesoft BASIC Source Code | 1992-02-02 | 395 b | 4 lines | [FC] Applesoft BASIC Program (0x0801)
0 REM CHRISTOPHER VOLPE-- TRUMBULL, CT
1 H$ = "303: AD 52 C0 AD 51 C0 A9 22 EA EA EA EA 20 A8 FC AD 50 C0 A9 47 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 3E 00 00 20 A8 FC 4C 06 03 N 303G"
2 FOR I = 1 TO 40: PRINT "THIS IS TEXT PAGE ONE. ";: NEXT : FOR C = 1 TO LEN(H$): POKE 511 +C, ASC( MID$ (H$,C,1)) +128: NEXT : CALL -144
10 REM <CTRL-0x0d><CTRL-0x0d>CHRISTOPHER VOLPE<CTRL-0x0d>30 CROCUS LANE<CTRL-0x0d>TRUMBULL, CT 06611<CTRL-0x0d><CTRL-0x0d>SEPTEMBER 16, 1981