1 REM COPYRIGHT (C) 1979, INSTANT SOFTWARE, INC. (P)
5 B$="                                                  "
10 POKE16553,255:CLS:FORI=0TO63:POKE15360+I,191:POKE16320+I,191:NEXTI
20 FORI=0TO15:POKE(15360+I*64),191:POKE(15423+I*64),191:NEXTI
40 PRINT@196,"I N S T A N T   S O F T W A R E   P R E S E N T S  ...";
42 GOSUB510
43 REM  **** SET FOR/NEXT LOOP LIMIT = NUMBER OF PROGRAMS ****
45 FORK=1TO1
46 GOSUB200
50 GOSUB150
55 GOSUB510
60 PRINT@841,"COPYRIGHT (C) 1979, INSTANT SOFTWARE, INC. (P)";
62 GOSUB500:GOSUB500
65 NEXTK
70 CLS:PRINT@520,"LOADING AIRMAIL PILOT, PLEASE BE PATIENT"
100 RUN"AIRMAIL"
150 READA$:PRINT@(478-INT(LEN(A$)/2)+1),A$;
175 READA$:PRINT@666,A$;
180 RETURN
200 PRINT@458,B$;
210 PRINT@514,B$;
220 RETURN
497 REM *** CHANGE DATA TO APPROPRIATE TITLE,AUTHOR, AND
498 REM *** MACHINE SIZE (4K OR 16K LEVEL II) ****
500 FORI=1TO1000:NEXTI:RETURN
510 FORI=1TO250:NEXTI:RETURN
600 DATA"AIRMAIL PILOT"
610 DATA"16K LEVEL II"
