0 CMPA #1 IS THIS FOOD? 05420 BEQ L21A 05430 CMPA #2 HOW ABOUT THIS? 05440 BNE L21 05450 L21A LDA #3 GOTCHA! 05460 STA ,X 05470 STX NCURR 05480 LDX #ARAYA 05490 LDY #ARAYE 05500 LDU #ARAYM 05510 LDD NEWLO 05520 LEAX D,X 05530 STX NAGE 05540 LEAY D,Y 05550 STY NEAT 05560 LEAU D,U 05570 STU NMOVE 05580 LDX #ARAYE 05590 LDY #ARAYC 05600 LDU #ARAYM 05610 LDD OLDLO 05620 LEAX D,X 05630 STX OEAT 05640 LEAY D,Y 05650 STY OCURR 05660 LEAU D,U 05670 STU OMOVE 05680 LDX #ARAYA 05690 LEAX D,X 05700 STX OAGE 05710 LDX NAGE 05720 CLR ,X 05730 LDX OEAT 05740 LDA ,X 05750 CLR ,X 05760 INCA 05770 CMPA THEAT 05780 BLE L22 05790 LDA THEAT 05800 L22 LDX NEAT 05810 STA ,X 05820 LDX NMOVE 05830 LDA #3 05840 STA ,X 05850 LDX OCURR 05860 CLR ,X 05870 LDX OMOVE 05880 CLR ,X 05890 LDX OAGE 05900 LDY NAGE 05910 LDA ,X 05920 CLR ,X 05930 STA ,Y 05940 LBRA THREP 05950 05960 STARV3 LDX #ARAYE 05970 LDD OLDLO 05980 LEAX D,X 05990 LDA ,X 06000 DECA 06010 STA ,X 06020 TST ,X 06030 BNE MOVE3 STILL ALIVE 06040 LDX #ARAYC 06050 LDD OLDLO 06060 CLR D,X 06070 LDX #ARAYA 06080 CLR D,X 06090 LDX #ARAYM 06100 CLR D,X 06110 LBRA LOOP3 06120 06130 MOVE3 LDU #RANDY 06140 CLR ,U+ 06150 CLR ,U+ 06160 CLR ,U+ 06170 CLR ,U 06180 LDA #5 06190 STA RCOUNT 06200 L23 DEC RCOUNT 06210 LBEQ LOOP3 06220 LBSR RANDOM 06230 LDB NEWY 06240 LDA #64 06250 MUL 06260 ADDB NEWX 06270 ADCA #0 06280 STD NEWLO 06290 LDX #ARAYC 06300 LEAX D,X 06310 TST D,X 06320 BNE L23 06330 STX NCURR 06340 LDX #ARAYM 06350 LDY #ARAYA 06360 LDU #ARAYE 06370 LDD NEWLO 06380 LEAX D,X 06390 STX NMOVE 06400 LEAY D,Y 06410 STY NAGE 06420 LEAU D,U 06430 STY NEAT 06440 LDX #ARAYC 06450 LDY #ARAYM 06460 LDU #ARAYA 06470 LDD OLDLO 06480 LEAX D,X 06490 STX OCURR 06500 LEAY D,Y 06510 STY OMOVE 06520 LEAU D,U 06530 STU OAGE 06540 LDX #ARAYE 06550 LEAX D,X 06560 STX OEAT 06570 LDX NCURR 06580 LDY NMOVE 06590 LDA #3 06600 STA ,X 06610 STA ,Y 06620 LDX OCURR 06630 LDY OMOVE 06640 CLR ,X 06650 CLR ,Y 06660 LDX NAGE TRANSFER AGE 06670 LDY OAGE 06680 LDA ,Y 06690 CLR ,Y 06700 STA ,X 06710 LDX NEAT TRANSFER EAT 06720 LDY OEAT 06730 LDA ,Y 06740 CLR ,Y 06750 STA ,X 06760 06770 THREP LDX NAGE 06780 LDA ,X 06790 CMPA THAGE 06800 BLO LOOP3 06810 LDX NEAT 06820 LDA ,X 06830 CMPA THEAT 06840 BLO LOOP3 06850 LDX OCURR CAN REPRODUCE 06860 LDY OMOVE 06870 LDA #3 06880 STA ,X 06890 STA ,Y 06900 LDX NAGE 06910 LDY OAGE 06920 LDA #1 06930 STA ,X 06940 STA ,Y 06950 LDX NEAT 06960 LDY OEAT 06970 STA ,X 06980 STA ,Y 06990 07000 LOOP3 LDB ACROSS 07010 INCB 07020 CMPB #64 07030 LBLO L19 07040 LDA DOWN 07050 INCA 07060 CMPA #32 07070 LBLO L18 07080 CLRA 07090 TFR A,DP THAT'S ALL FOLKS 07100 RTS 07110 07120 RANDOM LDB TIMER 07130 INC TIMER CHANGE IT 07140 ANDB #3 JUST WANT 0-3 07150 LDU #RANDY 07160 TST B,U PICKED ALREADY? 07170 BNE RANDOM 07180 INC B,U PICKED NOW 07190 CMPB #3 07200 BEQ R3 07210 CMPB #2 07220 BEQ R2 07230 CMPB #1 07240 BEQ R1 07250 07260 R0 LDD ACROSS 07270 DECB Y-1 07280 ANDB #31 WRAP 07290 STD NEWX NEW LOCATION 07300 RTS 07310 07320 R1 LDD ACROSS 07330 DECA X-1 07340 ANDA #63 07350 STD NEWX 07360 RTS 07370 R2 LDD ACROSS 07380 INCA X+1 07390 ANDA #63 07400 STD NEWX 07410 RTS 07420 07430 R3 LDD ACROSS 07440 INCB Y+1 07450 ANDB #31 07460 STD NEWX 07470 RTS 07480 07490 ARAYC RMB 2048 ARRAY CURRENT 07500 ARAYM RMB 2048 ARRAY MOVE 07510 ARAYA RMB 2048 ARRAY AGE 07520 ARAYE RMB 2048 ARRAY EAT 07530 07540 END START 02660 LDX #ARAYA 02670 LDY #ARAYA 02680 LDD OLDLO 02690 LEAX D,X 02700 LDD NEWLO 02710 LEAY D,Y 02720 LDA #1 START AT AGE 1 02730 STA ,X 02740 STA ,Y 02750 L11 LDB ACROSS 02760 INCB 02770 CMPB #64 02780 LBLO L8 02790 LDA DOWN 02800 INCA 02810 CMPA #32 02820 LBLO L7 02830 02840 TWO CLRA 02850 L12 STA DOWN 02860 CLRB 02870 L13 STB ACROSS 02880 LDA DOWN 02890 LDB #64 02900 MUL 02910 ADDB ACROSS 02920 ADCA #0 02930 STD OLDLO 02940 LDX #ARAYC 02950 LDA D,X 02960 CMPA #2 02970 LBNE LOOP2 02980 LDY #ARAYM 02990 LDD OLDLO 03000 TST D,Y 03010 LBNE LOOP2 03020 LDY #ARAYA 03030 LEAY D,Y 03040 LDA ,Y 03050 INCA 03060 CMPA TWOAGE 03070 BLE L14 03080 LDA TWOAGE 03090 L14 STA ,Y 03100 LDU #RANDY 03110 CLR ,U+ 03120 CLR ,U+ 03130 CLR ,U+ 03140 CLR ,U 03150 LDA #5 03160 STA RCOUNT 03170 L15 DEC RCOUNT 03180 LBEQ STARV2 NO FOOD TODAY 03190 LBSR RANDOM 03200 LDB NEWY 03210 LDA #64 03220 MUL 03230 ADDB NEWX 03240 ADCA #0 03250 STD NEWLO 03260 LDX #ARAYC 03270 LEAX D,X 03280 LDA ,X 03290 CMPA #1 ANY FOOD HERE? 03300 BNE L15 03310 LDA #2 EAT IT 03320 STA ,X 03330 STX NCURR 03340 LDX #ARAYA 03350 LDY #ARAYE 03360 LDU #ARAYM 03370 LDD NEWLO 03380 LEAX D,X 03390 STX NAGE 03400 LEAY D,Y 03410 STY NEAT 03420 LEAU D,U 03430 STU NMOVE 03440 LDX #ARAYE 03450 LDY #ARAYC 03460 LDU #ARAYM 03470 LDD OLDLO 03480 LEAX D,X 03490 STX OEAT 03500 LEAY D,Y 03510 STY OCURR 03520 LEAU D,U 03530 STU OMOVE 03540 LDX #ARAYA 03550 LEAX D,X 03560 STX OAGE 03570 LDX NAGE 03580 CLR ,X 03590 LDX OEAT 03600 LDA ,X 03610 CLR ,X CLEAR OLD EAT 03620 INCA INCREASE NEW EAT 03630 CMPA TWOEAT 03640 BLE L16 03650 LDA TWOEAT 03660 L16 LDX NEAT AND STORE IT 03670 STA ,X 03680 LDX NMOVE 03690 LDA #2 03700 STA ,X 03710 LDX OCURR 03720 CLR ,X 03730 LDX OMOVE 03740 CLR ,X 03750 LDX OAGE 03760 LDY NAGE 03770 LDA ,X 03780 CLR ,X 03790 STA ,Y 03800 LBRA TWOREP 03810 03820 STARV2 LDX #ARAYE 03830 LDD OLDLO 03840 LEAX D,X 03850 LDA ,X 03860 DECA DECREASE EAT 03870 STA ,X 03880 TST ,X DOWN TO '0' YET? 03890 BNE MOVE2 03900 LDX #ARAYC YES 03910 LDD OLDLO CLEAR OUT EVERYTHING 03920 CLR D,X 03930 LDX #ARAYA 03940 CLR D,X 03950 LDX #ARAYM 03960 CLR D,X 03970 LBRA LOOP2 03980 03990 MOVE2 LDU #RANDY 04000 CLR ,U+ 04010 CLR ,U+ 04020 CLR ,U+ 04030 CLR ,U 04040 LDA #5 04050 STA RCOUNT 04060 L17 DEC RCOUNT 04070 LBEQ LOOP2 COULDN'T MOVE EITHER 04080 LBSR RANDOM 04090 LDB NEWY 04100 LDA #64 04110 MUL 04120 ADDB NEWX 04130 ADCA #0 04140 STD NEWLO 04150 LDX #ARAYC 04160 LEAX D,X 04170 TST ,X OCCUPIED? 04180 BNE L17 04190 STX NCURR 04200 LDX #ARAYM 04210 LDY #ARAYA 04220 LDU #ARAYE 04230 LDD NEWLO 04240 LEAX D,X 04250 STX NMOVE 04260 LEAY D,Y 04270 STY NAGE 04280 LEAU D,U 04290 STU NEAT 04300 LDX #ARAYC 04310 LDY #ARAYM 04320 LDU #ARAYA 04330 LDD OLDLO 04340 LEAX D,X 04350 STX OCURR 04360 LEAY D,Y 04370 STY OMOVE 04380 LEAU D,U 04390 STU OAGE 04400 LDX #ARAYE 04410 LEAX D,X 04420 STX OEAT 04430 LDX NCURR 04440 LDY NMOVE 04450 LDA #2 04460 STA ,X 04470 STA ,Y 04480 LDX OCURR 04490 LDY OMOVE 04500 CLR ,X 04510 CLR ,Y 04520 LDX NAGE 04530 LDY OAGE 04540 LDA ,Y 04550 CLR ,Y 04560 STA ,X 04570 LDX NEAT 04580 LDY OEAT 04590 LDA ,Y 04600 CLR ,Y 04610 STA ,X 04620 04630 TWOREP LDX NAGE 04640 LDA ,X 04650 CMPA TWOAGE REPRODUCE YET? 04660 BLO LOOP2 04670 LDX NEAT 04680 LDA ,X 04690 CMPA TWOEAT REPRODUCE YET? 04700 BLO LOOP2 04710 LDX OCURR 04720 LDY OMOVE 04730 LDA #2 04740 STA ,X 04750 STA ,Y 04760 LDX NAGE 04770 LDY OAGE 04780 LDA #1 04790 STA ,X 04800 STA ,Y 04810 LDX NEAT 04820 LDY OEAT 04830 STA ,X BOTH START WITH '1' EAT 04840 STA ,Y 04850 04860 LOOP2 LDB ACROSS 04870 INCB 04880 CMPB #64 04890 LBLO L13 04900 LDA DOWN 04910 INCA 04920 CMPA #32 04930 LBLO L12 04940 04950 THREE CLRA 04960 L18 STA DOWN 04970 CLRB 04980 L19 STB ACROSS 04990 LDA DOWN 05000 LDB #64 05010 MUL 05020 ADDB ACROSS 05030 ADCA #0 05040 STD OLDLO 05050 LDX #ARAYC 05060 LDA D,X 05070 CMPA #3 05080 LBNE LOOP3 05090 LDY #ARAYM 05100 LDD OLDLO 05110 TST D,Y 05120 LBNE LOOP3 05130 LDY #ARAYA 05140 LEAY D,Y 05150 LDA ,Y 05160 INCA 05170 CMPA THAGE 05180 BLE L20 05190 LDA THAGE 05200 L20 STA ,Y 05210 05220 EAT3 LDU #RANDY 05230 CLR ,U+ 05240 CLR ,U+ 05250 CLR ,U+ 05260 CLR ,U 05270 LDA #5 05280 STA RCOUNT 05290 L21 DEC RCOUNT 05300 LBEQ STARV3 05310 LBSR RANDOM 05320 LDB NEWY 05330 LDA #64 05340 MUL 05350 ADDB NEWX 05360 ADCA #0 05370 STD NEWLO 05380 LDX #ARAYC 05390 LEAX D,X 05400 LDA ,X 054100100 *PREDATORS 00110 ORG $5000 00120 NUM1 RMB 1 00130 ONEAGE RMB 1 00140 NUM2 RMB 1 00150 TWOAGE RMB 1 00160 TWOEAT RMB 1 00170 NUM3 RMB 1 00180 THAGE RMB 1 00190 THEAT RMB 1 00200 ACROSS RMB 1 00210 DOWN RMB 1 00220 TEMP RMB 1 00230 RANDY RMB 4 00240 TIMER RMB 1 00250 RCOUNT RMB 1 00260 NEWX RMB 1 00270 NEWY RMB 1 00280 OLDLO RMB 2 00290 NEWLO RMB 2 00300 OCURR RMB 2 00310 NCURR RMB 2 00320 OMOVE RMB 2 00330 NMOVE RMB 2 00340 OAGE RMB 2 00350 NAGE RMB 2 00360 OEAT RMB 2 00370 NEAT RMB 2 00380 00390 START LDX #ARAYC CLEAR ALL ARRAYS 00400 LDD #0 00410 L1 STD ,X++ 00420 CMPX #ARAYC+8192 00430 BLO L1 00440 00450 LONE LDB NUM1 00460 STB TEMP 00470 L2 LDD #2048 GET RANDOM LOCATION 00480 JSR $B4F4 00490 JSR $BF1F 00500 JSR $B3ED 00510 SUBD #1 00520 LDX #ARAYC 00530 TST D,X 00540 BNE L2 ALREADY OCCUPIED 00550 INC D,X STORE A '1' THERE 00560 LDY #ARAYA 00570 LEAY D,Y 00580 LDB ONEAGE RANDOM AGE 00590 JSR $BC7C 00600 JSR $BF1F 00610 JSR $B3ED 00620 STB ,Y 00630 DEC TEMP ANY MORE? 00640 BNE L2 00650 00660 LTWO LDB NUM2 00670 STB TEMP 00680 L3 LDD #2048 00690 JSR $B4F4 00700 JSR $BF1F 00710 JSR $B3ED 00720 SUBD #1 00730 LDX #ARAYC 00740 TST D,X 00750 BNE L3 00760 INC D,X STORE A '2' THERE 00770 INC D,X 00780 STD OLDLO 00790 LDY #ARAYA 00800 LEAY D,Y 00810 LDB TWOAGE 00820 JSR $BC7C 00830 JSR $BF1F 00840 JSR $B3ED 00850 STB ,Y 00860 LDD OLDLO 00870 LDY #ARAYE 00880 LEAY D,Y 00890 LDB TWOEAT GET RANDOM EAT 00900 JSR $BC7C 00910 JSR $BF1F 00920 JSR $B3ED 00930 STB ,Y 00940 DEC TEMP 00950 BNE L3 00960 00970 LTHREE TST NUM3 ARE THERE ANY? 00980 BEQ PAGE1 00990 LDB NUM3 01000 STB TEMP 01010 L4 LDD #2048 01020 JSR $B4F4 01030 JSR $BF1F 01040 JSR $B3ED 01050 SUBD #1 01060 LDX #ARAYC 01070 TST D,X 01080 BNE L4 01090 INC D,X STORE A '3' THERE 01100 INC D,X 01110 INC D,X 01120 STD OLDLO 01130 LDY #ARAYA 01140 LEAY D,Y 01150 LDB THAGE 01160 JSR $BC7C 01170 JSR $BF1F 01180 JSR $B3ED 01190 STB ,Y 01200 LDY #ARAYE 01210 LDD OLDLO 01220 LEAY D,Y 01230 LDB THEAT 01240 JSR $BC7C 01250 JSR $BF1F 01260 JSR $B3ED 01270 STB ,Y 01280 DEC TEMP 01290 BNE L4 01300 01310 PAGE1 LDB #1 01320 JSR $9653 01330 BSR SHOW 01340 LDB #1 SCREEN 1 01350 JSR $95AA 01360 PAGE3 LDB #3 01370 JSR $9653 01380 BSR SHOW 01390 LDB #1 01400 JSR $95AA 01410 BRA PAGE1 01420 01430 SETDP $50 SINCE VARIABLES ARE HERE 01440 SHOW LDA #$50 01450 TFR A,DP 01460 LDY #ARAYC 01470 CLRA 01480 L5 STA DOWN 01490 CLRB 01500 L6 STB ACROSS 01510 CLR 2048,Y CLEAR ARRAY 'MOVE',TOO 01520 LDA ,Y+ GET VALUE 0-3 01530 LDB #$55 01540 MUL 01550 STB >$B5 01560 PSET LDA DOWN 01570 ADDA #32 CENTER DISPLAY 01580 LDB #32 01590 MUL 01600 ADDA $BA 01610 TFR D,X 01620 LDB ACROSS 01630 ADDB #32 CENTER DISPLAY 01640 LSRB 01650 LSRB 01660 ABX 01670 LDA ACROSS 01680 ADDA #32 01690 ANDA #3 01700 LDU #$92E5 01710 LDA A,U 01720 TFR A,B 01730 COMA 01740 ANDA ,X 01750 ANDB $B5 01760 STB TEMP 01770 ORA TEMP 01780 STA ,X 01790 LDB ACROSS 01800 INCB 01810 CMPB #64 01820 BLO L6 01830 LDA DOWN 01840 INCA 01850 CMPA #32 01860 BLO L5 01870 01880 MOVE1 CLRA 01890 L7 STA DOWN 01900 CLRB 01910 L8 STB ACROSS 01920 LDA DOWN 01930 LDB #64 01940 MUL 01950 ADDB ACROSS 01960 ADCA #0 01970 STD OLDLO CURRENT LOCATION 01980 LDX #ARAYC 01990 LDA D,X 02000 CMPA #1 02010 LBNE L11 SKIP OVER THIS 02020 LDY #ARAYM 02030 LDD OLDLO 02040 TST D,Y IS THIS A MOVE? 02050 LBNE L11 02060 LDY #ARAYA 02070 LEAY D,Y 02080 LDA ,Y 02090 INCA INCREASE AGE 02100 CMPA ONEAGE 02110 BLE L9 02120 LDA ONEAGE 02130 L9 STA ,Y 02140 LDU #RANDY 02150 CLR ,U+ CLEAR THE 4 DIRECTIONS 02160 CLR ,U+ 02170 CLR ,U+ 02180 CLR ,U 02190 LDA #5 02200 STA RCOUNT 02210 L10 DEC RCOUNT JUST 4 OF THEM 02220 LBEQ L11 GOOD TRY! 02230 LBSR RANDOM 02240 LDB NEWY 02250 LDA #64 02260 MUL 02270 ADDB NEWX 02280 ADCA #0 02290 STD NEWLO NEW LOCATION 02300 LDX #ARAYC 02310 TST D,X IS IT VACANT? 02320 BNE L10 02330 LDY #ARAYM 02340 TST D,Y ANY MOVES THERE? 02350 BNE L10 02360 LEAX D,X 02370 LEAY D,Y 02380 LDA #1 OK, OCCUPY IT 02390 STA ,X 02400 STA ,Y 02410 LDX #ARAYC 02420 LDY #ARAYM 02430 LDD OLDLO 02440 CLR D,X VACATE OLD LOCATION 02450 CLR D,Y 02460 LDY #ARAYA 02470 LEAY D,Y 02480 LDA ,Y 02490 CLR ,Y CLEAR OLD AGE 02500 STA TEMP 02510 LDD NEWLO 02520 LDY #ARAYA 02530 LEAY D,Y 02540 LDA TEMP 02550 STA ,Y STORE NEW AGE 02560 CMPA ONEAGE REPRODUCE YET? 02570 BNE L11 02580 LDX #ARAYC 02590 LDY #ARAYM 02600 LDD OLDLO 02610 LEAX D,X 02620 LEAY D,Y 02630 LDA #1 YES! 02640 STA ,X 02650 STA ,Y G&:COMPUND INTEREST&7:WRITTEN BY MARVYN HOOPER&U:COPYRIGHT FEBRUARY 1991&l:BY FALSOFT, INC.&:RAINBOW MAGAZINE& :"*COMPOUND INTEREST CALCULATIONS*"&"AMOUNT";A&"INT.RATE";R&("YEARS";Y' 2"PERIOD (A)NNUAL (S)EMI ANNUAL (M)ONTHLY (D)AILY"'*TI$"V31;T2;L4;O2;D;P50;D;P50;D;L6;O1;B;P50;O2;L16;E;L4;D;P50;L6;O1;B;P50;O2;L16;E;L4;D"8dH TI$8tRT11000:8\:@32,10)"KNIGHTSHIFT"9<f@96," IN THE 13TH CENTURY, TWO KINGS SOUGHT TO EXPAND THEIR DOMAINS AND SET OUT TO CAPTURE CASTLES BELONGING TO ANY MEMBERS OF A ROYAL FAMILY. THE VICTORIOUS"9p" KING WOULD BE HE WHO WAS LAST TO ATTACK OR CAPTURE A CASTLE.": z:" THE RULES WERE CLEAR- MOVE ONE CASTLE PER DAY (MOVE) - AND ATTACK HORIZONTALLY,VERTICALLY AND DIAGONALLY ONLY. CHARGE!": 338,0:@ (338)254 (338)253 910:W:1,1:"S4;C0;":AS LAST TO ATTACK OR CAPTURE A CASTLE.": z:" THE RULES WERE CLEAR- MOVE ONE CASTLE PER DAY (MOVE) - AND ATTACK HORIZONTALLY,VERTICALLY AND DIAGONALLY ONL 0&9\z (0,24),"BARDEN'S EZASM: F1 SAVES/F2 LOADS/CLEAR/SHFT,UP ARR DELETES/SHFT,DN ARR INSERTS"\ EN***[ I0 26: S(I)1: [ ʀ I0 22: (0,I8)(103,I87),1,: [ Ԁ I0 22: (320,I8)(423,I87),1,: \X& :KNIGHT SHIFT&A:WRITTEN BY NEIL AND WARREN HARRIS&`:COPYRIGHT (C) APRIL 1991&w#:BY FALSOFT, INC.&(:RAINBOW MAGAZINE&22000&L$(24)"F6RH3NH3E3LG6RE2":X6fL$(25)"NDRD2RDRD3NLR2HU2E3LFG2":Y6~40::3: 6206Y8:I04:Y18Y:"BM62,"(Y)L$(I1)"BM88,"(Y)C$(I1):7 Y8:I59:Y18Y:"BM170,"(Y)L$(I1)"BM196,"(Y)C$(I1):7V&Y8:I04:Y18Y:"BM278,"(Y)L$(I11)"BM288,"(Y)C$(I11):70Y8:I59:Y18Y:"BM380,"(Y)L$(I11)"BM390,"(Y)C$(I11):7:Y8:I04:Y18Y:"BM494,"(Y)L$(I21)"BM504,"(Y)C$(I21):7D5808FNJ11000:::4,8:"THE FONT MENU IS NOW BEING SAVED":4,10:"AS FMENU/HR1."8X&HFFA2,&H70:M"FMENU/HR1",&H4000,&H5FFF,&HAC73:&HFFA2,&H7A8b8l0::3,10:"READY TO SAVE THE FONT MENU? (Y/N)"8vK$:K$""630:K$"Y":5907D5808FNJ11CHR$(143)CHR$(130)R$CHR$(195)CHR$(195)CHR$(195)CHR$(194)CHR$(195)CHR$(195)CHR$(195)CHR$(195)CHR$(193)CHR$(195)CHR$(195)CHR$(194)CHR$(195)CHR$(195)CHR$(195)CHR$(193); 23 PRINTCHR$(195)CHR$(195)CHR$(194)CHR$(195)CHR$(194)CHR$(193)CHR$(195)CHR$(195)CHR$(193)CHR$(195)CHR$(195)CHR$(194)CHR$(195)CHR$(195)CHR$(195)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(192)CHR$(207); 24 PRINTCHR$(192)CHR$(207)CHR$(192)CHR$(200)CHR$(207)R$CHR$(196)CHR$(192)CHR$(207)R$CHR$(200)CHR$(197)CHR$(203)CHR$(194)CHR$(197)CHR$(202)CHR$(197)CHR$(197)CHR$(202)CHR$(202)CHR$(207)CHR$(192)CHR$(196)R$; 25 PRINTCHR$(197)CHR$(206)CHR$(204)CHR$(200)CHR$(197)CHR$(206)CHR$(205)CHR$(206)R$CHR$(207)CHR$(204)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(207)CHR$(204)R$CHR$(197)CHR$(202)CHR$(203)CHR$(197)CHR$(202); 26 PRINTR$CHR$(197)CHR$(202)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(197)CHR$(202)CHR$(192)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(202)CHR$(207)R$CHR$(207)R$; 27 PRINTCHR$(207)R$CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(199)CHR$(202)R$CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(207)R$CHR$(199)CHR$(203)CHR$(192)R$CHR$(199)CHR$(203)CHR$(197)CHR$(203); 28 PRINTCHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(207)CHR$(195)CHR$(207)CHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(199)CHR$(203)CHR$(192)CHR$(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1 " (55) COMP-INT"/+ " (57) PREDATOR"/B " (57)+PREDATOR"/Y " (57)*PREDATOR"/o " (79) PYRAMID"/ " (80) SPACE"/ "END" " (17) KNIGHT". " (40)+CLRSCN". " (40)*CLRSCN". " (40) CLRSCNDR". " (50) READDOC"/XREF","(182) COMMANDO"0. END) FILESRCH"/ "(102) LOADER","(103) CADPRINT","(108) RESTORE","(117) ROBOCISE","(135) WHO AM I"/ "(146) TIN EAR","(147) KOLAROLA","(150) SUBTRACT","(162) SUPERCLS","(166) SOUND 2"0$ "(167) SOUNDGEN","(172) &, :900:L$(25),C$(25),M(25):0,63:1,0&C$(1)"BU2BR2G3ERE2R4GNL3G4D5EU4BR2D5G4UH2LG2ER3FERE2URUE2NFG2U4E4F2DH2DFBR5BD2G2ND4LD4NHFRE2NU5RU4FBR5BU2G2RD4NHFNEU4NU2E3ND6FNFD6E2BR5BU9G3LR3NR2NUD8NE2H2RU5":FONTA'?C$(2)"BL2R6NDNGL5D3NR3D3NLR2HU4BR8BDND3GD2FR3NU3EU2HL2BR6D4RU4R3D4RU3BR5BU3ND5G2NR4FD2FRE":FONTB'(C$(3)"BU5R5BR2DNLNRDRNRDRE2BL7L5DLNGBR5G2ND8GD8BDBL2L2DR2DFNDRURE2U9NE3RD3ND4REFBR8BU3G2ND6LD5LF2RE2NU7RU6FBR4BU2NG2D3E3DRFLD7NE2HNU6BL2GNU5LNHU7BR12BU6G2RD11NE2H2RU8L2R5":FONTC(2C$(4)"BL2BU2R11D2RHL2BL6D6R3D2ENRHL3D6GU13LBR15BD3G3D2F3R5E3U2H3L4G3D2F3R3E3U2H2BR6BUR3GNLD7RU5NU2E3R2DRD7LNUE2U4BR6BU4DLGR7NR5G5UNE2FDRDRDR4E2":FONTD( TO CONTINUE";+JX$:X$""330+TX$" "240+^I114:X$B$(I)500+hI:330+r,|: " (XX)= PAGE NUMBER OF LISTING",:,BP1115:B$(P)A$(P),B$(5P)A$(P5):P,J:,P,V, " PRESS TO RETURN TO FIRST PAGE OF MENU", " PRESS ^ (UP ARROW) FOR ";,XX$: XX$""430,XX$(94) ::-…XX$" "240-̀I11 NP:XX$B$(I)500-+֋I:430-:XX$430-Dꁥ240-dQ$A$(I):(Q$,1)"*"540-:@138,"SORRY, BUT"::8)Q$::" IS A MACHINE LANGUAGE PROGRAM.".:" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."..4Q(Q$):QQ6:SL$(Q$,Q).@& SL$,R.L "MAY".c " (12) GENFMENU".z " (13) GENFONTI". " (14) GENFONTN". " (17) KNIGHT". " (40)+CLRSCN". " (40)*CLRSCN". " (40) CLRSCNDR". " (50) READDOC"/𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я$%'(*./24 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BASGENFMENUBASGENFONTIBAS&GENFONTNBAS)#KNIGHT BAS[CLRSCN ASM+GCLRSCN BINCLRSCNDRBAS,EREADDOC BAS-COMP-INTBASJPREDATORBASLPREDATORASMPREDATORBIN0[PYRAMID BAS1hSPACE BAS3\߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?&X40::11,8:"GENERATE FONTI":9,10:"BY H. ALLEN CURTIS":11,12:"COPYRIGHT 1990"&f 220&xF$(84),M(84)& D15:S8& M(1)15:F$(1)"BRBD2NGR6DGDGD2NR4LDG2NL2BR10RNE2HLU2GU3GU3GU2":A' M(2)12:F$(2)"BRBD2NGR10D2EDG2NL4DRDLDGL4NU7LNGU7":B'5M(3)7:F$(3)"BR3BD2NR4G3ND5RD6RDRDR3E":C'mM(4)12:F$(4)"BRBD2NGR8DRDRDRD2HD2G2L7NGEU6RD6":D'M(5)8:F$(5)"BR2BD2R5DRBL7GRDRDNR4G2RGRDR6E":E'M(6)11:F$(6)"BRBD2NGR3NR7ND3FD3NR4L3NGR3ND7LD8GL3":F(M(7)8:F$(7)"BR3BD2NR4G3ND2RD3RDRDR3E2NU2D5G2L6":G(XM(8)14:F$(8)"BR12BDNR2GD8RNE2L2U4NU3L5NU4D3G2NL2EU8L3G":H(M(9)5:F$(9)"BD2R2D8NL2NR3EU7R2":I(M(10)7:F$(10)"BR6BD2NG2ND10RD10G3L4":J(M(11)16:F$(11)"BRBD2NGR4GD7GNL2E2U2NU4RF6RH7ERERENRHR4":K)$ M(12)12:F$(12)"BR3BDNR2GND7GD8LR4FR2FR2FR":L)w"M(13)19:F$(13)"BR17BDNR2GD8RNE2L2U7GDLDLDLDLNDLULULULUH2L3NGR3D8GNL2E2U5":M)$M(14)14:F$(14)"BR12BDNR2GD8RNE2L2U3NU4GULULULUH2L3NGR3D8GNL2E2U5":N)&M(15)8:F$(15)"BR3BD2G3ND2RD3RDRDR3E2U4LULUL2":O*/(M(16)12:F$(16)"BRBD2NGR10FDHD2GL5NU3D4LNGU7":P*s*M(17)8:F$(17)"BR3BD2G3ND2RD3RDRDR3G2NL2F2NR2ULHE4U4LULUL2":Q*,M(18)15:F$(18)"BRBD2NGR3NR7D8NGRU4NU3RF7R2LH7R3E2ULD":R*.M(19)8:F$(19)"BR2BD2R5NFL5G2D2R2GNU3R2DR2DR2GR2D2HD2GL5H":S+%0M(20)11:F$(20)"BRBD2NGR5NR5D8RNEL3EU6":T+Z2M(21)9:F$(21)"BRBD2NGD7RNU7DR2E3U5RD7RGLU2":U+4M(22)11:F$(22)"BR10BDGR2GDGDGDGDLU3GU3GU2LU2GUG2":V+6M(23)18:F$(23)"BR17BDFL2FDGDGDGDLU3GU3GU2L2GDGDGDLU3GU3GU2LU2GUG2":W,8M(24)11:F$(24)"BRBDNGRNF4DF3DNG5E5NRG4DRDRDRDRE":X,R:M(25)9:F$(25)"BRBD2NGND5RD6RDRDR3E2NU5D5G2L5":Y,M(27)8:F$(27)"BR2BD5NR4G2ND2RD3RE4LD3FNE2U3":a,@M(28)6:F$(28)"BR2NR3G2ND8RD8R3E2NU2LU3LG2":b-BM(29)6:F$(29)"BR2BD5NR4G2ND2RD3R4E":c-PDM(30)8:F$(30)"BR7NRG2RD8NE2HU4NU2L3G2ND2RD3RE2":d-FM(31)6:F$(31)"BR2BD5R3FNLG2L3U2GD2RDR4E":e-HM(32)6:F$(32)"BR3BD2NR3G3RD9GEU9FR2":f-JM(33)7:F$(33)"BR3BD5NR4G2D2FNU3G2RGRDRDR3E2U7LDNG3D6":g.$LM(34)8:F$(34)"BR2NR3G2ND8RD6ND2E3RD5RNU3E2":h.QNM(35)4:F$(35)"BR2BD2GBD2NGD5RNE2U5":i.|PM(36)2:F$(36)"BRBD3RBD2D8NG2LU8G":j.RM(37)8:F$(37)"BR2NR3G2D8RU2NU6RUE2RDRDLGLF2UFE2":k.TM(38)3:F$(38)"BR2NRG2D8RNE2U8":l/VM(39)14:F$(39)"BR2BD5G2RD3RU2NU2E3RD5RU2NU2E3RD5RNE2U4":m/TXM(40)9:F$(40)"BR2BD5G2RD3RU2NU2E3RD5RNE2U4":n/ZM(41)7:F$(41)"BR3BD5G3NRF2NU3R3E2NU2LU3L2":o/\M(42)7:F$(42)"BRBD5NGD10EU6NU3E3RDRD2HD2GL2":p/^M(43)7:F$(43)"BR2BD5NR4G2ND2RD3RE4NLD8NEGU7":q0 `M(44)7:F$(44)"BRBD5NGD5RU2NU3E3R2":r0RbM(45)7:F$(45)"BRBD5R4NFL4GRDR2DR2DRGL4H":s0dM(46)6:F$(46)"BR2BD4NG2D2NR2ND3LD3FR2E2":t0fM(47)8:F$(47)"BRBD5NGD4FNU5RE4ULD4R2GU4":u0hM(48)8:F$(48)"BRBD5NGNDRD3ED3RE4L2E":v1jM(49)13:F$(49)"BRBD5GRED3ED3RE2UF2LFRE4L2E":w1QlM(50)9:F$(50)"BR2BD5NG2DRDR2G3NLE5NRGDGDRDRE2":x1nM(51)7:F$(51)"BRBD5NGD4FNU5RE4ND7ULD9GL3":y1pM(52)8:F$(52)"BRBD5NGR6G5LNE4R6E":z1rM(53)5:F$(53)"BR2BD5G2D2FNU3R3E2NU2LU3L2BD2D":02 tM(54)2:F$(54)"BRBD5NGD5RU5":129vM(55)6:F$(55)"BRBD5NGR3D2EDGLGLGR5E":22mxM(56)5:F$(56)"BRBD5NGR3DRDLDNL2FND2LD3GL3":32zM(57)7:F$(57)"BR4BD5G4R4NU3D4EU3NR2U4":42|M(58)6:F$(58)"BD5NR6D3ENUDR3DRFLDGL4":52~M(59)6:F$(59)"BR4BD5G3R4FND2LD3GL3U4LD3":632M(60)6:F$(60)"BRBD5NGR5DG3LNE3DRGLD3LNUE2":73mM(61)6:F$(61)"BR2BD5G2RDRNF3DG2DED2R3E2H2E2LELHL":83M(62)6:F$(62)"BR2BD5G2ND2RD3R3G4RE5NU3LU4L2":93M(63)2:F$(63)"BRBDGR2D4GNU4BD2GR2G":!3M(64)6:F$(64)"BR2D2HD2GBR4E2U2GD":"48M(65)9:F$(65)"BR3BDD9GU3NL2NR8U4NU2L2R8NR2ND6U3GD9":#4wM(66)6:F$(66)"BR4D4E2LU2G2LG2RDR2DR2FLDLGD4EU3FNRL4H":$4M(67)10:F$(67)"BR10G8BR5EFGBL8E8BL7GFE":%4M(68)9:F$(68)"BR3BD2RNDFG3U3GFDG2NDRD2R3E2RDR2GH4RFRE2L2":&5M(69)2:F$(69)"BRD3GE2UL2":'5AM(70)5:F$(70)"BR3BDNR2G3D3RNU3D2RNUDRDR2":(5pM(71)5:F$(71)"BDR2DRND2FD2ND4RD3G3L2":)5M(72)7:F$(72)"BRBD5F2E2RG2NR3NF2G2LE2L3":*5M(73)5:F$(73)"BR3BD5GRD2GU2L2R5":+5M(74)2:F$(74)"BRBD8GR2DNLG2":,6M(75)5:F$(75)"BD7R5":-62M(76)2:F$(76)"BRBD9DRGH":.6WM(77)10:F$(77)"BR10DG10UE9":/6M(78)2:F$(78)"BRBD4GR2GBD3GR2G"::6M(79)2:F$(79)"BRBD4GR2GBD3GR2GRG2":;6M(80)4:F$(80)"BR3BD4G3F3RH3E3":<6M(81)5:F$(81)"BD6NR5BD3R5":=7M(82)4:F$(82)"BD4F3G3RE3H3":>7OM(83)6:F$(83)"BRBD2NGR4FDHD2LDLDBD2GR2G":?7M(84)13:F$(84)"BR5BD2GLG3ND4RD5RDRFR5EREBL3BUU4HND4L2G2ND2RD3E2R2FE2NU3RU3HLHL4":@8X16:Y16:0,63:1,0:3:I184:"BM"(X)","(Y)F$(I):XXM(I)4:I26 I52YY24:X16::8ҁ2108L0::3,10:"READY TO SAVE FONTI/DAT? (Y/N)8mK$:K$""230:K$"Y"8:2,10:"YOU ARE NOW SAVING FILE FONTI/DAT"8"O",#1,"FONTI"8I184:#1,F$(I):8I184:#1,M(I):8#1,D:#1,S:#126 I28)' (252)(255)(252)(253)(250)(159)(156)(157)(154)(164)(173)(174)(168)R$(191)(188)(188)(191)(213)(222)(220)(223)(228)(237);(f (238)(236)(239)(133)(140)(143)(140)(138)R$(255)R$(245)(250)(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)(208)(223)R$(229);) (234)R$(239)(133)R$(143)R$(138)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)(208)(223)R$(229);)(234)R$(236)(133)R$(143)R$(138)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)(208)(223)R$(229);*D(234)R$R$R$R$(143)R$R$R$(255)(240)(245)(250)(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(176)(213)(218)R$(223)R$(229);*(234)R$(239)R$R$(143)R$R$R$(255)(252)(253)(250)(159)(156)(157)(154)R$(165)(170)R$R$(188)(188)(188)(191)(213)(218)R$(223)R$(229);+(238)(236)(239)(224)R$(143)R$R$R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)R$(223)R$(229);,'(234)R$R$(224)R$(143)R$(105)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)R$(223)R$(229);,(234)R$R$R$R$(143)R$(110)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)(161)(162)(191)R$R$(191)(213)(218)R$(223)R$(229);-^(234)R$R$R$R$(143)R$(99)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)(165)(170)(191)R$R$(191)(213)(218)R$(223)R$(229);."(234)R$R$R$R$(143)R$R$(243)(255)(243)R$(147)(159)(145)(151)(155)(146)(167)(171)(167)(170)(191)(179)(179)(191)(213)(219)(211)(223)(225)(231);.(235)(226)R$R$(129)(143)(130)R$(195)(195)(195)(194)(195)(195)(195)(195)(193)(195)(195)(194)(195)(195)(195)(193);/l(195)(195)(194)(195)(194)(193)(195)(195 &X40::11,8:"GENERATE FONTN":9,10:"BY H. ALLEN CURTIS":11,12:"COPYRIGHT 1990"&f 220&xF$(84),M(84)& D9:S8& M(1)4:F$(1)"BRGD5RU6R2FD5LU3NL2U3":A& M(2)4:F$(2)"R3FDGNL3FDGNU6L3U6RD6":B'M(3)4:F$(3)"BRR2NFL2GD4FNU6R2E":C',M(4)4:F$(4)"R3FD4GNU6L3U6RD6":D'RM(5)3:F$(5)"NR3D6NR3RU3NRU3":E'uM(6)3:F$(6)"NR3D6RU3NRU3":F'M(7)4:F$(7)"BRR2NFL2GD4FR3U3LD3L2U6":G'M(8)4:F$(8)"D6RU6LBR3RD6LU3NL2U3":H'M(9)1:F$(9)"RD6LU6":I(M(10)4:F$(10)"BR3RD5GNU6L2HURD2":J(JM(11)4:F$(11)"D6RU2E3ULDG2U3NLD3RF2DLUHNUL":K(l M(12)3:F$(12)"D6NR3RU6L":L("M(13)6:F$(13)"ND6F3D2H3UF3UE2URD6LU4G2":M($M(14)4:F$(14)"ND6F4NU4D2H4UF4":N(&M(15)4:F$(15)"BRGD4FR2EU4HL2D6R2U6":O)(M(16)4:F$(16)"R3FDGNU3L3ND3U3RD3":P)O*M(17)4:F$(17)"BRGD4FNU6RFNRUNLEU4HNL2D6":Q)},M(18)4:F$(18)"R3FDGNL3FD2LU6L3D6RU6":R).M(19)4:F$(19)"BRR2FHL2GDF3DL2NHR2EUH3LF4":S)0M(20)5:F$(20)"R3D6LU6R3":T)2M(21)4:F$(21)"NRD5FNU6R2EU5LD6":U*$4M(22)4:F$(22)"NRD6RNU6RE2U4LD5":V*V6M(23)7:F$(23)"NRD6RNU6R2U6RD6NLRE2U4LD5":W*8M(24)4:F$(24)"NRD2FGD2RU3NU3R2D3RU2HEU2LD4":X*:M(25)5:F$(25)"NRD2FNU3FD2RU2ENL3EU2LD3":Y*M(27)4:F$(27)"BD2BRR2FD3L3HEND2R3LU2D4":a+D@M(28)4:F$(28)"NRD6R3EU2HND4L3RNU2D4":b+tBM(29)4:F$(29)"BD2BRR2NFL2GD2FR2NEL2U4":c+DM(30)4:F$(30)"BR3RD6LNU6L2HU2END4R2":d+FM(31)4:F$(31)"BRBD2GD2FNR2U4R2FDNL4LU2":e+HM(32)3:F$(32)"BR2NRG2R3LNU2D4LU5":f,3JM(33)4:F$(33)"BRBD2GD2FNU4R2D2NL2EU4HND4L2":g,]LM(34)4:F$(34)"NRD6RU6D2R2FD3LU4":h,NM(35)1:F$(35)"RBD2D4LU4R":i,PM(36)3:F$(36)"BR2RBD2D5GLNHRU6R":j,RM(37)4:F$(37)"NRD6RNU6U2E2RG3U2F3LH2":k,TM(38)1:F$(38)"D6RU6L":l-+VM(39)7:F$(39)"BD2NR6D4RU4R2D4RU4R2FD3LU4":m-WXM(40)4:F$(40)"BD2NR3D4RU4R2FD3LU4":n-ZM(41)4:F$(41)"BRBD2GD2FNU4R2EU2HND4L2":o-\M(42)4:F$(42)"BD2R3FD2GNU4L2NU4D2LU6":p-^M(43)4:F$(43)"BRBD2GD2FNU4R2D2RU6LND4L2":q.`M(44)3:F$(44)"BD2RD2NE2D2LU4":r.@bM(45)4:F$(45)"BRBD2NR2GF2RDNL2EH2L2RF2":s.jdM(46)3:F$(46)"BRD2NLNR2D3FNRU6L":t.fM(47)4:F$(47)"BD2NRD3FNU4R3U4LD4":u.hM(48)4:F$(48)"BD2NRD4RNU4RE2U2LD3":v.jM(49)7:F$(49)"BD2NRD4RNU4R2U4RD4NLRE2U2LD3":w/,lM(50)4:F$(50)"BD2NRDFGDRUNU3ENHEURDGNLFDLU2":x/]nM(51)4:F$(51)"BD2NRD3FNU4R2D2NL2EU5LD4":y/pM(52)3:F$(52)"BD2R3DG3NR3UE3":z/rM(53)4:F$(53)"BRGD4FR2EU4HND6L2D6":0/tM(54)3:F$(54)"BR2G2R2U2RD6LU6":10vM(55)4:F$(55)"BRNGR2FD2G3NR3LE3U3":20-xM(56)4:F$(56)"R4DGNLFD2GNU6L2H":30[zM(57)4:F$(57)"BR2G2D2NR4R2D2NU6RU6L":40|M(58)4:F$(58)"NR4D2R3FD2GNU4L2H":50~M(59)4:F$(59)"BRNR2GD4FNU6R2EU2HND4L2":60M(60)4:F$(60)"R4D2G2D2LU2E2U2":71M(61)4:F$(61)"BRGDFGDFNU6R2EUHNL2EUHND6L2":81AM(62)4:F$(62)"BRGD2F2DNLE2U3HL2D4R2U4":91hM(63)1:F$(63)"RD4LNU4BD2DRUL":!1M(64)4:F$(64)"D2RU2LBR3D2RU2L":"1M(65)6:F$(65)"BR3DR3LNUL4RD2L2RNDR2NDRNRU2":#1M(66)4:F$(66)"BR2D8ULNHR2EUNL2HNHL2HNR2UER2F":$22M(67)5:F$(67)"BRGFENHERDG2DGND2E3NUG2DF2EHG":%2aM(68)4:F$(68)"R2D3FNRDFL3NU4HUE2L2U2":&2M(69)1:F$(69)"RD2LU2":'2M(70)2:F$(70)"BR2G2D4FNU6F":(2M(71)2:F$(71)"F2D4GNU6G":)2M(72)4:F$(72)"BR2DNG2NF2D2NH2NE2D":*3M(73)4:F$(73)"BR2BDD4U2NL2R2":+3>M(74)1:F$(74)"BD5DRUNLD2G":,3\M(75)3:F$(75)"BD3R3":-3|M(76)1:F$(76)"BD5RDLU":.3M(77)3:F$(77)"BR3DGDGDGD2UEUEUEU":/3M(78)1:F$(78)"BDRDLUBD4RDLU"::3M(79)1:F$(79)"BDRDLUBD4RD2NGULU":;4M(80)3:F$(80)"BR2BDRG2F2LH2E2":<4BM(81)4:F$(81)"BD2R4BD2L4":=4gM(82)3:F$(82)"BDF2G2RE2H2L":>4M(83)4:F$(83)"BRGRUR2FDG2BD2DLUNRBU2E3DH2":?4M(84)6:F$(84)"BR2G2D2F2R3BU2RU3HL3RBD2GFENFUL":@5<X16:Y16:0,63:1,0:1:I184:"BM"(X)","(Y)F$(I):XXM(I)4:I26 I52YY24:X16::5Fҁ2105v0::3,10:"READY TO SAVE FONTN/DAT? (Y/N)5K$:K$""230:K$"Y"5:2,10:"YOU ARE NOW SAVING FILE FONTN/DAT"5"O",#1,"FONTN"5I184:#1,F$(I):6 I184:#1,M(I):6#1,D:#1,S:#126 I52YY24:X16::5Fҁ2105v0::3,10:"READY TO SAVE FONTN/DAT? (Y/N)5K$:K$""230:K$"Y"5:2,10:"YOU ARE NOW SAVING FILE FONTN/DAT"5"O",#1,"FONTN"5I184:#1,F$(I):6 I18" LDA #$20 " " LDX #$400 " " A STA +000,X " " LEAX +001,X " " CMPX #$600 " " LBNE A " " RTS " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " B&d 1000,&H7EFF&'nM "CLRSCN.BIN"&4x &H7F00&A "DONE"03,I87),1,: [ Ԁ I0 22: (320,I8)(423,I87),1,: [ ސ[ :***PRINT TITLE***[ (0,24),"BARDEN'S EZASM: F1 SAVES/F2 LOADS/CLEAR/SHFT,UP ARR DELETES/SHFT,DN ARR INSERTS"&:READDOC&6:WRITTEN BY STUART WYSS-GALLIFENT&S:COPYRIGHT (C) MAY 1991&j:BY FALSOFT, INC.&:RAINBOW MAGAZINE& 80:: 1,0: 0,0: 9,63:& 28,1: 1,0:" * READDOC v 1.1 *";' 22,2: 5,0:" ASCII file reader ";'A( 16,3:" by Stuart T. Wyss-Gallifent (June 20,1990) ";'2 16,5: 7,0:"Here is a brief summary of available commands:": 16,6: (46,"-");'< HE1 8: HE$: 4,2HE5: 1,0: (HE$,12);: 7,0:(HE$,(HE$)12);: HE(3F 15,22: 5,0:"Press P now to dump this summary to your printer"(xP L = load -gives a directory and asks for a filename to load(Z down arrow -displays next line. Hold for continuous display(d N = next -displays the next page (23 lines))>n S = search-asks for and searches for the first occurence of a string)x P = print -either print the current screen or up to the current screen) T = top -jumps back the the beginning of the file* B = bottom-displays entire file without stopping*' E = exit -exits the program*X 150,18:: PRINTER BAUD POKE SET TO 2400*: PLACE ANY NECESSARY CONTROL CODES FOR YOUR PRINTER HERE (PROGRAM ASSUMES 80 CHARS/LINE AND 66 LINES/PAGE* 5000* 300: 300+: INITIALIZE MENU BAR AND BLANK BAR+iQ$(34,32)"Load down Next Search Print Top Bottom Exit":(Q$,15,6)"line:"+zR$(78,32)+ 282,0:: LOWERCASE ON+LN0: 310+: PRINT BLANK+ 65497,0: 1,23: 1,2: R$;: 1,0: 65496,0:+: PRINT MENU,T 65497,0: ((Q$,20,5))LN (Q$,20,5)" ":(Q$,20,((LN)))(LN),}" 1,23: 1,2: Q$;: 1,0: 65496,0:,,:,6I$:CF0,@ (446202)116 270,J I$"" (I$)96 I$((I$)32),T I$"E" 1190- ^ I$"L" 680-#h I$"P" 920-6r NA$"" 310-L| I$"S" 820-{ I$"N" 410 : 1,23: (78,32);:H0- 450:HH1: H23 400- I$"T" 1150- I$"B" 450: 420- (342)247 1,23: (78,32);: 450. 310.: LOAD A LINE.0̅ (1)1 1170.=ֻ #1,A$.Q AN$"n" 630.d: FILTER ANSI.{ 65497,0:B1:F20. B1 B1. CF1 (1,A$,(ST$,1))0 A$(32).L1(B,A$,(91)): L10 630 : L0L1/ L11(A$) L3109: 580/A&L2((A$,L11,1)): L247 L257 BL11: 530/c0 L12(A$) L3109: 580/|:L3((A$,L12,1))/D L3109 L372 L365 L366 L367 L368 L374 A$(A$,L01)(A$,L13,255):BL01: 5100N F21 L1L11: 5600.X L346 L358 L1L11:F21: 5600Kb L359 BL13: 5300clL1L11:F21: 5600v 65496,0: CF1 : YN$"n" (A$)0 4600 (A$)79 LNLN((A$)80):HH((A$)80)1LNLN1:(Q$,20,5)" ":(Q$,20,((LN)))(LN)1  0,23: A$1&12: LOAD1; #11y:"Filename Ext Attr":"------------------":: 282,2551Ɓ 250: 1,23: 1,2:"Enter name of file and extention to view";NA$: 1,0:YN$""1В 282,0:1څ (NA$)12 7002! (1,NA$,".")0 (1,NA$,"/")0 7002G(Q$,2,12)NA$(12(NA$),32)2lLN0:"I",#1,NA$: YN$"" 7902 250: 0,23: 1,2:" Print blank lines (y/N)";YN$: 1,0:: YN$"y" YN$"n" YN$"n"3/ 250: 0,23: 1,2:" Filter ANSI commands (y/N)";AN$: 1,0:: AN$"y" AN$"n" AN$"n"37H03U 450:HH1: H23 8003[*3i4: SEARCH3> 250: 0,23: 1,2:" String (ENTER='";ST$;"') ";: SP$: SP$"" ST$SP$3H 1,0:3R (1)1 11703\CF1: 470:CF04 fLNLN1: (A$)80 LNLN((A$)80)4+p 2704_z (1,A$,ST$)0 850 : 1,0: 0,23: A$:H04} 450:HH1: H21 90044: PRINT5 0,23: 1,2:" 1) this page only 2) up to this page "(39,32);: 65,23:"PAGES:"((LN60.99999));: 1,05J$: J$"" 94056 (J$) 970,10405<5v: PRINT THIS PAGE: SCANS MEMORY AND DUMPS TO PRINTER5K20: 65497,05J4423685PP(J): PP32 PP126 PP326 PP$PP$(PP):K2K21: K280 65496,0: #2,PP$:PP$"":K20: 65497,06'JJ2: J446048 100067 65496,0:6T: PRINT UP TO THIS PAGE6mUTLN: #1:L20:L306}$"I",#1,NA$6. (1)1 117068CF1: 470:CF06B YN$"n" (A$)0 10807LL2L21:L3L31: (A$)80 L2L2((A$)80):L3L3((A$)80)7$V L2UT 71` #2,A$7Yj L360 #2,(66L3,13);:L307et 10707p~: TOP7:: 760:7: EOF8  0,23: 1,2:" ---END OF FILE--- press any key to continue ";: #1: 1,0: 44539: 3108: END8N 250: 0,23: 1,2:" Are you sure (y/n) ?";: 1,08xJ$: J$"" 1210 : J$"y" 8Ě: 282,255: 113,0: 409998: END OF PROGRAM ---END OF FILE--- press any key to continue ";: #1: 1,0: P'V<큌v<%PP V4#?: ONBRKGOTO and Quit.4H@:0:3:65496,.:3,2:41598,3:4}A65496,.:400,20:D110:::65497,.:400,180:4B:HPUT & HGET cards on screen.4C(X(H),Y(H))(X(H)67,Y(H)44),Z:4D(X(H),Y(H))(X(H)67,Y(H)44),Z:5E:Check to see if game is over. or won.5gFMO0:TTT:K128:F(K)1 TK:59:Q0:TCW:T0:59:Q0:ECW:TTT :725GECTC1 ECTC12 TCEC1 TCEC12 6/HK:65:2:(12,22),"GAME IS OVER YOU LOST. PRESS SPACEBAR TO PLAY ANOTHER GAME":(14,23),"PRESS DOWN ARROW TO PLAY SAME GAME. PRESS TO QUIT"6xIP$:P$" "SH1:3:P$(10)SH0:CA(0)AC:3:P$"Q"64:737DJ3:(28,10),"WELL, YOU FINALLY DID IT.":(32,12),"YOU WON THE GAME":(32,14),"CONGRATULATIONS !":(10,20),"PRESS SPACEBAR FOR ANOTHER GAME, DOWN ARROW TO PLAY SAME GAME":(32,22),"PRESS TO QUIT."7dK"T2L5;O2BAGDO1DO2ABG":733:P$"Q"64:737DJ3:(28,10),"WELL, YOU FINALLY DID IT.":(32,12),"YOU WON THE GAME":(32,14),"CONGRATULATIONS !":(10,20),"PRESS SPACEBAR FOR ANOTY&:SPACE KAMIKAZE&3:WRITTEN BY T.C. TAULLI&R:COPYRIGHT (C) APRIL 1991&i:BY FALSOFT, INC.&:RAINBOW MAGAZINE& 2000: T(200),H(200),R(200),XX$(40),LA(200):Y$(128):U0&5&161,162,163,165,170,175&( X1 6: Q(X): X'#2 X0 10:@X32,(32,128);:X'J< X1 32:XX$XX$(Q((6))):X'YF@320,XX$;'nPN$(155):B134'zZ@B,N$;'d@384,"HIT(S)";'n@448,"DAMAGE";'x@416,"SCORE";' 610' X1 200'C(65280)( (7)1 GG1:T(G)((9)32)1( Y1U G((C(65280)(; T(Y)0 420(jȅ H(Y)7 @LA(Y),Y$;:T(Y)0:UU1: 420(҅ (1024T(Y))159 GAME1(܇@LA(Y),Y$;:@T(Y),(162);:LA(Y)T(Y):T(Y)T(Y)5:H(Y)H(Y)1( C254 C126 440) (4)1 T(Y)T(Y)32: 260), (4)1 T(Y)T(Y)32)F T(Y)320 T(Y)320)n T(Y)0 @LA(Y),Y$;:T(Y)0:UU1) (1024B)162 DADA1:@448,"DAMAGE";DA;:"T222;O5;V31;GF")" DA5 560*,XX$XX$(Q((6)))(Q((6)))(Q((6)))(Q((6)))(Q((6)))*06XX$(XX$,5,32):@320,XX$;*X@J1((0)31.5):J2((1)31.5)*hJC(65280)*T J20 @B,(128);:BB32: 360*^ J22 @B,(128);:BB32*h B0 B6*r B320 B294+| (1024B)162 DADA1:@448,"DAMAGE";DA;:"T222;O5;V31;GF"+* DA5 560+6@B,N$;+S C254 C126 440+] Y,X+h 140+pE0+zEE1+̅ E4 490+օ (1024B(E5))162 490+ 450+@B1,(E5,179);+"T222O5V31B"+ L1U G,; T(L)B(E5)5 T(L)0:HITSHITS1:@390,HITS;:@421,HITS10;: 540,C L,Z@B1,(E5,128);,`&,0@171,"game";:@176,"over";,:@265,"press";:@272,"button";,D HY1 500: HY,NC(65280): C254 C126 ,X 590- b@265,"press";:@272,"button";-1lC(65280): C254 C126 640-<v 620-R@265,(14,128);-X+&,0@171,"game";:@176,"overSHOWEREDBYINTERVIEWS ^SCIENTIFICANALYSIS ANDCOMMENTARY.OTONLY^THAT BUTTHEEVENTWASBEINGCOMPAREDTOTHE^ASSASSINATION!ND ITTOOKTHENETWORKSONLYONE^DAYTOTRANSFORMUNKNOWN!MERICANSINTOGIANT^HEROES4HETRAGEDYMADEGOODSOAPOPERAANDWAS^THUSGUARANTEEDTOGENERATEHIGHERRATINGS^/NEADVANTAGETHEPRESIDENTHASISTHAT^HEENCOUNTERSNOIMPEDIMENTSINENTERINGTHEPRESS^ARENA4HEREASONISTHEPRESSDOESTWANTTO^MISSAPRESIDENTIALASSASSINATION ASITDIDIN^$ALL&B 2000: T(200),H(200),R(200),XX$(40),LA(200):Y$(128):U0&I5&f161,162,163,165,170,175&( X1 6: Q(X): X&2 X0 10:@X32,(32,128);:X&< X1 32:XX$XX$(Q((6))):X&F@320,XX$;&PN$(155):B134&Z@B,N$;'d@384,"HIT(S)";'#n@448,"DAMAGE";'6x@416,"SCORE";'A 610'Q X1 200'aC(65280)' (7)1 GG1:T(G)((9)32)1' Y1U G'C(65280)' T(Y)0 420'ȅ H(Y)7 @LA(Y),Y$;:T(Y)0:UU1: 420( ҅ (1024T(Y))159 GAME1(O܇@LA(Y),Y$;:@T(Y),(162);:LA(Y)T(Y):T(Y)T(Y)5:H(Y)H(Y)1(l C254 C126 440( (4)1 T(Y)T(Y)32: 260( (4)1 T(Y)T(Y)32( T(Y)320 T(Y)320( T(Y)0 @LA(Y),Y$;:T(Y)0:UU1)3 (1024B)162 DADA1:@448,"DAMAGE";DA;:"T222;O5;V31;GF")D" DA5 560),XX$XX$(Q((6)))(Q((6)))(Q((6)))(Q((6)))(Q((6))))6XX$(XX$,5,32):@320,XX$;)@J1((0)31.5):J2((1)31.5))JC(65280)*T J20 @B,(128);:BB32: 360*2^ J22 @B,(128);:BB32*Bh B0 B6*Vr B320 B294*| (1024B)162 DADA1:@448,"DAMAGE";DA;:"T222;O5;V31;GF"* DA5 560*@B,N$;* C254 C126 440* Y,X* 140*E0*EE1+ ̅ E4 490+,օ (1024B(E5))162 490+7 450+N@B1,(E5,179);+`"T222O5V31B"+p L1U G+ T(L)B(E5)5 T(L)0:HITSHITS1:@390,HITS;:@421,HITS10;: 540+ L+@B1,(E5,128);+&,0@171,"game";:@176,"over";,$:@265,"press";:@272,"button";,:D HY1 500: HY,^NC(65280): C254 C126 ,iX 590,b@265,"press";:@272,"button";,lC(65280): C254 C126 640,v 620,@265,(14,128);,+&,0@171,"game";:@176,"over";,$:@265,"press";:@272,"button";,:D HY1 500: HY,^NC(65280): C254 C126 ,iX 590,b@265,"press";:@2