1 'MAPLE.100  by Neil Wick [71056,613]
5 CLS:CLEAR256:CLEAR:PRINT@209,"The Maple Leaf Forever":PRINT@252,"by Alexander Muir":GOTO10
7 FORL=1TOM:FORD=0TO1:POKEST,RMOD50:OUT188,FMOD256:OUT189,((F/256)AND127)OR64:OUT184,195:OUT186,PAND219OR32:CALLML,0,U(24):R=R+1:NEXT:PRINT@218,PR$(X);:NEXT:RETURN
10 MAXFILES=1:DEFINTA-Z:P=INP(186):DIMU(38),PR$(11)
20 DATA229,205,92,118,33,84,254,205,59,117,30,0,225,126,230,63,50,30,254,35,62,0,87,211,254,6,50,126,230,207,28,7,7,210,48,254,126,230,63,95,35,195,31,254,35,7,7
25 DATA79,126,35,230,207,129,211,255,29,202,70,254,5,205,72,117,195,57,254,5,194,31,254,126,254,34,200,122,198,64,195,26,254,31,0
30 ML=-508:ST=-487:WI=-482:E1=-428:E2=-427
40 FORX=-508TO-427:READA:POKEX,A:NEXT
45 DATA233,307,84,367,208,271,70,300,70,277,162,325,226,292,181,280,220,261,221,259,116,295,194,267,197
47 DATA14,25,44,64,78,104,125,138,134,126,108,78,34
48 DATABritish Columbia,Alberta,Saskatchewan,Manitoba,Ontario,Quebec,New Brunswick,Nova Scotia,Prince Edward Island,Newfoundland,Yukon Territory,Northwest Territories
60 GOSUB2000:U(0)=PEEK(U)+256*PEEK(U+1)-65536
70 FORX=1TO38:READAD:U(X)=U(X-1)+AD:NEXT:FORX=0TO11:READPR$(X):PR$(X)=PR$(X)+SPACE$(21-LEN(PR$(X))):NEXT
80 GOSUB500:LINE(100,8)-(100,39)
95 FORX=0TO11:POKEST,0:POKEE2,0
100 POKEE1,2:CALLML,0,U(X+X)
110 POKEE1,64:CALLML,0,U(X+X+1):POKEE1,29
120 READF,M:IFF=-1THEN150
130 GOSUB7:MM=MM+M:IFMM>32THENMM=MM-32ELSE120
140 NEXT
150 FORY=1TO200:NEXT:OUT186,P:MENU
500 POKEE1,21:POKEE2,0:GOSUB550:POKEE1,42:POKEE2,2:GOSUB550:PRINT@209," Graphics programmed  ":PRINT@252,"  by Neil Wick   "
520 FORX=1TO900:A$=INKEY$:IFA$=""THENNEXT
530 POKEE1,255:POKEE2,3:CALLML,0,U(25):RETURN
550 FORX=26TO37:CALLML,0,U(X):FORY=1TO100:NEXT:NEXT:FORX=36TO33STEP-1:CALLML,0,U(X):FORY=1TO100:NEXT:NEXT:RETURN
1000 DATA7456,4,8866,4,7456,4,4433,6,5586,2,6642,4,5586,4,7456,8,5918,6,5586,2,4976,4,5586,4,5918,4,6642,4,7456,6,8368,2,8866,4,7456,4,5586,4,5586,4,4433,4,5586,4,6642,4,5918,2,5586,2,4976,2,4976,2
1010 DATA5586,4,5918,4,6642,4,7456,8,0,4,7456,4,6642,4,7456,4,5586,6,7456,2,6642,4,5586,4,7456,6,7456,2,6642,4,6642,4,4184,6,4433,2,4433,2,4976,6,0,4,7456,4,3728,4,4433,4,5586,4,5918,4,6642,4,5586,4
1020 DATA7456,6,7456,2,6642,4,4184,4,4433,6,4976,2,4976,2,5586,6,0,4
1040 DATA7456,4,8866,4,7456,4,5586,6,7456,2,6642,4,5586,4,7456,6,7456,2,6642,4,6642,4,4184,6,4433,2,4433,2,4976,6,0,4,7456,4,3728,4,4433,4,5586,4,5918,4,6642,4,5586,4,7456,6,7456,2,6642,4,4184,4,4433,6
1050 DATA4976,2,4976,2,5586,6,0,4,-1,
2000 ONERRORGOTO2010:FI$="PRVARM":OPENFI$FORINPUTAS1:IFINPUT$(4,1)="rq00"THEN2020ELSEPRINT"Data file must begin rq00"
2010 IFERR=52THENPRINT"You must have PRVARM.DAT in memory.  See MAPLE.DOC":STOP
2020 ONERRORGOTO0:A=VARPTR(FI$):A=PEEK(A+1)+256*PEEK(A+2)-65536:U=-1693
2030 X=U+1:Y=A-1:IFPEEK(U-1)<192THEN2070
2040 X=X+1:Y=Y+1:IFX=U+8THENRETURN
2060 IFPEEK(X)=PEEK(Y)THEN2040
2070 U=U+11:GOTO2030