7 DIM K(4) 8 SPACE$ =" " 9 WRITE(5,100) 11 READ(5,200)I 13 WRITE(5,100) 14 READ(5,200)J 15 L=I^2 16 M=J^2 17 WRITE(5,300) 19 READ(5,400)NAME$ 21 WRITE(5,450) 23 READ(5,400)LAST$ 24 ALL$=NAME$+SPACE$+LAST$ 25 K(1)=I 26 K(2)=J 27 K(3)=L 28 K(4)=M 29 CALL COMPARE(I,J) 30 WRITE(5,500)ALL$ 32 WRITE(5,600)L 34 WRITE(5,700)M 36 CALL LISTER(K) 37 END 39 REM 40 FOR N=1 TO 4 STEP 1 41 WRITE(5,800)N,K(N) 43 NEXT 44 RETURN 45 END 47 REM 48 IF(I.GT.J) GOTO 20 49 WRITE(5,30) 51 RETURN 52 REM 53 WRITE(5,40) 55 RETURN 600)L 34 WRITE(5,700)M 36 CALL LISTER(K) 37 END 39 REM 40 FOR N=1 TO 4 STEP 1 41 WRITE(5,800)N,K(N) 43 NEXT 47 DIM K(4) 8 SPACE$ =" " 9 PRINT# 0,"ENTER A NUMBER"; 11 INPUT# 0,I 13 PRINT# 0,"ENTER A NUMBER"; 14 INPUT# 0,J 15 L=I^2 16 M=J^2 17 PRINT# 0,"YOUR FIRST NAME"; 19 INPUT# 0,NAME$ 21 PRINT# 0,"YOUR LAST NAME"; 23 INPUT# 0,LAST$ 24 ALL$=NAME$+SPACE$+LAST$ 25 K(1)=I 26 K(2)=J 27 K(3)=L 28 K(4)=M 29 GOSUB47 30 PRINT# 0,"THE NUMBERS, ";ALL$ 32 PRINT# 0,"NUM1 SQRD=";L 34 PRINT# 0,"NUM2 SQRD=";M 36 GOSUB39 37 END 39 REM 40 FOR N=1 TO 4 STEP 1 41 PRINT# 0,"NUM";N;K(N) 43 NEXT 44 RETURN 45 END 47 REM 48 IF I>J THEN GOTO52 49 PRINT# 0,"2ND NUM LARGEST" 51 RETURN 52 REM 53 PRINT# 0,"1ST NUM LARGEST" 55 RETURN 4 PRINT# 0,"NUM2 SQRD=";M 36 GOSUB39 37 END 39 REM 40 FOR N=1 TO 4 STEP 1 41 PRINT# 0,"NUM";N;K(N) 43 NEXT 44 1. USING THE FORTRAN TRANSLATOR ------------------------------- THE MAIN PROMPT IS FOR> THIS MAY BE USED IN 4 WAYS: 1. TYPE EXIT TO RETURN TO BASIC'S COMMAND LEVEL 2. TYPE EDITOR TO REACH SOME EDITING UTILITIES 3. TYPE HELP FOR THIS FILE 4. TYPE A FILENAME TO START TRANSLATING A SOURCE FILE TO BASIC. NO EXTENSION NEEDED IF FILE EXTENSION IS /FOR. **PRESS FOR NEXT PAGE** 2. FORTRAN OPTIONS ------------------ YOU WILL BE PROMPTED FOR OPTIONS AFTER GIVING A FILE- NAME AT THE FOR> PROMPT. YOU MAY RESPOND WITH ANY, ALL OR NONE OF THE FOLLOWING: LPS THESE MEAN: L=LIST DURING THE 1ST PASS. P=PRINTER IS LISTING DEVICE. S="SYNTAX ERROR" MESSAGE GIVEN ON ERROR DETECTION. YOU WILL STILL BE INFORMED OF ERRORS EVEN WITH NO OPTIONS **PRESS FOR NEXT PAGE** 3. ERROR DETECTION ------------------ ERRORS ARE ALWAYS GIVEN ON THE LISTING DEVICE, WHETHER THE L OPTION IS SELECTED OR NOT. ERRORS ARE INDICATED BY THE LINE OF SOURCE IN ERROR, WITH THE ^ SYMBOL BELOW THE ERROR. IF THE S OPTION IS SELECTED THE WORDS "SYNTAX ERROR" WILL ALSO BE DISPLAYED. 3RD PASS ERRORS ARE OF THE "UNDEFINED LABEL" VARIETY, WITH THE LABEL IN ERROR ALSO DISPLAYED. **PRESS FOR NEXT PAGE** 4. EDITING UTILITIES -------------------- THESE ARE ACCESSED BY TYPING EDITOR IN RESPONSE TO THE FOR> PROMPT. THESE UTILITIES PROVIDE THE FOLLOWING: 1. COPY DATA FILES FROM TAPE TO DISK. 2. CONVERT A FILE CREATED BY THE EXTENDED BASIC EDITOR INTO ACCEPTABLE FORTRAN FORMAT. 3. RETURN TO THE FOR> PROMPT THESE ARE SELECTED BY A MENU. **PRESS FOR NEXT PAGE** 5. USING EXTENDED BASIC EDITOR ------------------------------ WRITE YOUR FORTRAN PROGRAMS AS THOUGH THEY WERE REMARKS IN A BASIC PROGRAM. FOLLOWING THE BASIC LINE-NUMBERS, TYPE A SINGLE-QUUOTE (') FOLLOWED BY THE LINE OF FORTRAN. SAVE THIS FILE IN ASCII FORMAT: I.E. SAVE "FILENAME/EXT",A. USE THE UTILITY IN "EDITOR" TO CONVERT THIS FILE INTO A FORTRAN-ACCEPTABLE FORMAT, GIVING AN EXTENSION OF /FOR. **PRESS FOR NEXT PAGE** 6. THE FORTRAN SOURCE FILE -------------------------- 1. VARIABLE TYPES ================= TYPES ARE CHARACTER & REAL. VARIABLES FOLLOW THE BASIC FORMAT, AND REQUIRE A $ AS THE LAST SYMBOL OF CHARACTER (I.E. STRING) VARIABLES. ALL NON-CHARACTER VARIABLES ARE REAL. ONLY THE 1ST TWO CHARACTERS OF VARIABLE NAMES ARE SIGNIFICANT. **PRESS FOR NEXT PAGE** 6. FORTRAN SOURCE FILE (CONT) ----------------------------- 2. TYPE DECLARATIONS ==================== YOU NEED NOT DECLARE VARIABLES, BUT IF YOU DO, YOU MAY ONLY DECLARE REAL & CHARACTER TYPES. 3. DATA STATEMENTS ================== CHARACTER VARIABLES MAY BE SET TO AN INITIAL VALUE WITH THE DATA STATEMENT. E.G: DATA NA$ /BOB/ **PRESS FOR NEXT PAGE** 6. FORTRAN SOURCE FILE (CONT) ----------------------------- 4. LABELS ========= YOU MAY ONLY LABEL FORMAT & CONTINUE STATEMENTS. 5. GOTO'S ========= YOU MAY ONLY GOTO A CONTINUE STATEMENT. GOTO MUST BE ONLY ONE WORD (NOT "GO TO"). 6. CONTINUATION CHARACTERS ========================== THESE ARE NOT SUPPORTED. **PRESS FOR NEXT PAGE** 6. FORTRAN SOURCE FILE (CONT) ----------------------------- 7. DO LOOPS =========== DO LOOPS ARE TERMINATED BY AN "END DO" STATEMENT, AND NOT BY A NUMERIC LABEL. 8. LINE FORMAT ============== COCO HAS ONLY A 32 COLUMN SCREEN, SO THE REQUIREMENT FOR FORTRAN LINES IS CHANGED TO THAT GIVEN ON THE NEXT INFORMATION PAGE. **PRESS FOR NEXT PAGE** 6. FORTRAN SOURCE FILE (CONT) ----------------------------- 8. LINE FORMAT (CONT) ===================== C (FOR COMMENT) MUST BE IN COLUMN ONE. NUMERIC LABELS MUST START IN COLUMN 1. EVERYTHING ELSE MUST BE PRE- CEDED BY AT LEAST 2 SPACES. 9. STRING CONCATENATION ======================= THE // SYMBOL IS USED FOR THIS: (E.G. NA$=FI$//LA$) **PRESS FOR NEXT PAGE** 6. FORTRAN SOURCE FILE (CONT) ----------------------------- 10. DEVICE NUMBERS-READ & WRITE =============================== 1 THRU 4=DISK FILES 5=KEYBOARD AND SCREEN 6=PRINTER 7=TAPE FILE 11. SUBROUTINES =============== ALL VARIABLES ARE GLOBAL SO AN ARGUMENT LIST NEED NOT BE PASSED. IF IT IS, THEY MUST BOTH BE IDENTICAL. *OPEN &CLOSE FILES AS IN BASIC* RU 4=DISK FILES 5=KEYBOARD AND SCREEN 6=PRINTER 7=TAPE FILE 11. SUBROUTINES =============== ALL VARIABLES ARE GLOBAL SO AN ARGUMENT LIST NEED 8)177J߁220JV0,0:4:@64," CONGRATULATIONS!":@128,"YOU'RE A GOOD EATER!" Jy@192,"YOU MANAGED TO EAT 250"KB@224,"CALORIES FOR FOUR":@256,"TIDE CYCLES. YOU WIN THE":@288,"FIRST PART OF STARFISH LIFE.":@352,"NOW SEARCH THE BOULDERS":@384,"FOR A STARFISH MATE.":@416,"(BUT WATCH OUT FOR WOLF EELS !)"Kh@480,"PRESS TO CONTINUE"KA$:A$(13)230K健228K恥74KR(10):R5R8155KR1R2R4R10243LO,O:4:@64," YOU DID IT !":@128,"YOU FOUND A MATE !":@192,"YOU WIN THE WHOLE GAME OF":@224,"STARFISH AND MUSSELS !":@320,"YOU ATE"CA"CALORIES OF MUSSELS":@352,"AND NOW YOU GET 100 POINTS"L@384,"FOR FINDING A MATE AND":@416,"NOT FINDING A WOLF EEL INSTEAD"M 176,10:170,3:176,3:185,6:159,10:147,10M3@480,"PRESS TO CONTINUE"MLA$:A$(13)239MV237M1,0:(3):"C2BM48,68R16M72,56M80,68R32M120,56M128,68R16M132,76D16M120,80M108,92U16M96,76M84,76D16M72,80M60,92U16M48,68":(72,72),2,2N%89,4:133,4:133,2:133,6:T160:T:89,4:147,4:125,2:133,8N(96,80),4,1:(104,96),4,1:(124,100),4,1:(148,104),4,1:I14:200,3:T130:T:I:I17224424:(I,104),4,1:200,3:J130:J:I:I12000:IN1N0,0:4:@128,"NOPE, NO MATE ON THAT ROCK."O@256,"TRY ANOTHER ROCK."O"T11500:TO+74OJ1,1:2:200:1,0:(3):30),4,1:(148,104),4,1:I14:200,3:T130:T:I:I17224424:(I,104),4,1:200,3:J130:J:I:I12000:IN1N0,0:4:@128,"NOPE, NO MATE ON THAT ROCK."O@256,"C ********************** C DEMO FORTRAN PROGRAM * C ********************** REAL I,J,L,M CHARACTER NAME$,LAST$,ALL$ CHARACTER SPACE$ DIMENSION K(4) DATA SPACE$ / / WRITE(5,100) 100 FORMAT('$ENTER A NUMBER') READ(5,200)I 200 FORMAT(F9.2) WRITE(5,100) READ(5,200)J L=I**2 M=J**2 WRITE(5,300) 300 FORMAT('$YOUR FIRST NAME') READ(5,400)NAME$ 400 FORMAT(A9) WRITE(5,450) 450 FORMAT('$YOUR LAST NAME') READ(5,400)LAST$ ALL$=NAME$//SPACE$//LAST$ K(1)=I K(2)=J K(3)=L K(4)=M CALL COMPARE(I,J) WRITE(5,500)ALL$ 500 FORMAT(' THE NUMBERS, ',A9) WRITE(5,600)L 600 FORMAT(' NUM1 SQRD=',F9.2) WRITE(5,700)M 700 FORMAT(' NUM2 SQRD=',F9.2) CALL LISTER(K) STOP END SUBROUTINE LISTER(K) DO N=1,4,1 WRITE(5,800)N,K(N) 800 FORMAT(' NUM',F2.0,F9.2) END DO RETURN STOP END SUBROUTINE COMPARE(I,J) IF(I.GT.J) GOTO 20 WRITE(5,30) 30 FORMAT(' 2ND NUM LARGEST') RETURN 20 CONTINUE WRITE(5,40) 40 FORMAT(' 1ST NUM LARGEST') RETURN STOP M',F2.0,F9.2) END DO RETURN STOP END SUBROUTINE COMPARE(I,J) IF(I.GT.J) GOTO 20 WRITE(5,30) 30 FORMAT(' 2N)(X2,Y2),V8lY2,1:9281m(X1,Y1)(X2,Y2),V 8@nY1101138ToY1Y14:Y2Y248op(X1,Y14)(X2,Y24),W8q(X1,Y1)(X2,Y2),V8rX1,1:928s(X1,Y1)(X2,Y2),V8t(X1,Y1)(X2,Y2),V8uY21851208vY2Y24:Y1Y149w(X1,Y14)(X2,Y24),W9x(X1,Y1)(X2,Y2),V9(yX2,1:9292z1229B{(5,5),1,4 9Z|S20015:S,1:S9m}NN1:TCN2509~:::"WHOOPS! THE TIDE JUST WENT OUT":9"YOU'LL JUST HAVE TO WAIT"9"FOR THE NEXT HIGH TIDE"9:"(STICK AROUND, IT'LL":"BE RIGHT BACK !)":Z176,6:197,6:197,6:176,6:185,2:180,2:185,2:197,6:185,2:176,10:159,8:176,4:176,4:176,4:165,8:159,4:176,8:T1300:T:176,8:185,4:165,4:185,4:197,8:185,4:176,8:T1300:T;i176,8:185,4:165,4:185,4:197,4:193,4:185,4:176,4:185,4:176,4:159,4:133,4:159,4:176,4:176,4:176,4:185,8:193,4:197,8;T1150:T:197,6:197,6;N2CATC 203;N4CATC 224;S12405:S,1:S;74;N4231 ;P1R(20)<P2R(14)<P2R(7)<#R4156<2MU(100)~"C1BM0,96M8,104M36,84M68,96M88,92M104,72R24M160,92M152,108M160,120M152,128M136,132M108,120M80,132M40,124M8,140M0,132BM152,108U16M124,96M116,108M124,120M148,120M152,108":(120,76),1,1:(124,84),8,4:(124,84),4,4>32,6:58,2:69,3:32,6:99,12>T1500:T?."C2BM124,28L12D16R12BR8U16BD8R12BU8D16BR20L12U16R12D16BR8U16M178,36M184,28D16BR8U16R12D8L12BM216,28D8BD4D4":T1200:T?cS4013:S,1:S:(148,100),2,1:(148,100),4,1?32,6:32,6:32,2:32,6:69,8:58,3:58,4:32,3:32,4:19,3:32,8?T1400:T?0,0:4:@96,"WELL, YOU MANAGED TO"?@160,"GET EATEN BY THE"@ @224,"MEAN, NASTY WOLF EEL."@>@288," YOU LOSE !"@h@352,"WOULD YOU LIKE TO TRY AGAIN ?"@@416,"PRESS TO TRY AGAIN,"@@448," FOR NO, THANKS."@@10,"TOTAL CALORIES="CA:@42,"# TIDE CYCLES= "N@A$AA$(89)61AA$(78)177A 173AD3:@128,"OK. SORRY YOU LOST !"Ah@224,"I HOPE YOU'LL COME BACK"A@288,"TO PLAY STARFISH AND"A@320,"MUSSELS AGAIN, SOMETIME !"B 89,3:89,3:176,12:176,4:159,8:T1100:T:89,3:108,7:89,3:117,7:89,3:125,12BT11000:TB#1B(3):"C2BM0,144M24,120M48,128M72,116M136,116M172,104R12M200,140R12D24M255,176":(20,188),4,2B"C1BM100,114M96,108U12M100,92R8M112,96D8M100,114":(104,100),1,1:S30705:S,1:S:S70305:S,1:SCu"C2BM48,56R40M104,20M120,56R40M136,76D40M104,80M72,116U40M48,56":(104,44),2,2:I14:S:133,125,108,89:S,3:T140:T:I:C"C2BM148,24U16M156,16M164,8D16BM168,8D16R12U16BM184,24U16M196,24U16BR16L12D16R12BR4U16BD8R12BU8D16BR8U4BU4U8"DI115:S(50):S,1:I:(104,114),3,2D)CACAMU:0,0:3DD@64,"MMMMMMMMMMMMM !"Dd@128," TASTY !"D@224,"YOU HAVE "CA" CALORIES NOW."D CA(N1)250 196D‡@288,"YOU NEED"(N1)250". ONLY"(N1)250CA"MORE !"DÁ198Eć@288,"THAT'S ENOUGH FOR THIS TIDE"E=Ň@320,"CYCLE. (UNLESS YOU WANT MORE.)"E_Ƈ@416,"GO GET 'EM, PARDNER !"ELJ@480,"PRESS TO CONTINUE"EA$:A$(13)202EɁ200Eʿ1,0:75E˿0,0:3:@96,"WELL, YOU DIDN'T EAT 250"F ̇@128,"CALORIES FOR 2 TIDE CYCLES"F͇@160,"IN A ROW."FF·@256,"THAT MEANS YOU'RE GOING TO"Flχ@288,"SHRIVEL AWAY TO NOTHING !"F}ЀT13000:TG0ѿ1,0:(3):"C2BM24,24R16M48,12M56,24R16M60,32D16M48,36M36,48U16M24,24":(48,24),2,2:T1999:T:"C2BM84,60R12M100,52M104,60R12M108,68D12M100,68M92,78U12M84,60":(100,60),2,2G"C2BM132,92R8M144,84M148,92R8M152,96D8M144,100M136,104U8M132,92":(144,96),2,2:(48,28),3,3:89,4G"C2BM172,120R4E4F4R4G4D4H4G4U4H4":(100,64),3,3:159,4:(180,122),2,2:T1200:TH"(208,148),6,2:T1100:T:(144,94),3,3:193,4H"C2BM220,164R4BM222,162D4":T1300:T:(180,122),3,3:204,4:T1200:T:(208,148),6,3:218,4:T1200:T:"C3BM220,164R4BM222,162D4":239,8:T1300:TIֿ0,0:3:@128,"SEE WHAT I MEAN ?":@192,"SHRIVELED AWAY TO NOTHINGNESS !"I/ׇ@288," YOU LOSE ."IY؇@352,"WOULD YOU LIKE TO TRY AGAIN ?"Iه@10,"TOTAL CALORIES="CA:@42,"# TIDE CYCLES= "NIڇ@416,"PRESS TO TRY AGAIN"Iۇ@448," FOR NO, THANKS"IA$I݅A$(89)61JޅA$(7)K&359,126&#:(C) CLOAD 1983&. 247&JV(2,2):W(3,2):Z(3,2)&"C2BM0,80M28,76R16M84,84R16M136,76R28M192,84R16M244,76R12"&"C4BM0,172M12,168M20,152R16M56,144R32M116,120R24M168,148R12D12M208,172R24M255,191"'(2,2),2,2:(116,124),4,4'"C4BM12,24L8D8R8D8L8BM16,24R8BL4D16BR8U16R8D16BU8L8BM40,40U16R8D8L8M48,40BR4U16R8BD8L8BM64,24D16BR4R8U8L8U8R8BR4D16BU8R8U8BD8D8BR8U16R8D8L8BR8D8BR4U16M116,40U16BR4D16R4M128,32M124,24L4BM140,40U16M144,32"("C4BM144,32M148,24D16BM152,24D16R8U16BR12L8D8R8D8L8BR12R8U8L8U8R8BR12L8D8R8BL8D8R8BM200,24D16R8BR4R8U8L8U8R8;BM88,48L8D16R8U8L4BM92,64U16R8D16BU8L8BM104,64U16M108,56M112,48D16BR12L8U16R8BD8L8"( "C2BM88,104R8M104,100M108,104R8M112,108D8M104,112M96,116U8M88,104":(104,108),2,2)6 "C1BM156,136M148,124U4M152,116R4M160,120D4M156,136":(152,120),1,1) "C2BM188,148R8M200,144M204,148R8M208,152D8M200,156M192,160U8M188,148":(200,152),2,2* "C1BM48,132U4M52,124R8M64,128M56,132M64,136M60,140L12M40,144L8M28,148L12D8L4U12R12M32,136R8M48,132":(56,128),1,1:(56,128),4,4* "C2BM4,180D8R8U8BR12L8D4R8D4L8BM36,180L8D4R6BL6D4R8BR8U8R8D8BU4L8BR12BD4U8R8D4L8M64,188BR4U8R8D4L8M76,188BM88,180L8D8R8U8BR4D8M96,184M100,188U8"+x"C2BM108,180D8BU4M116,180BM108,184M116,188BR12L8U4R6BL6U4R8BR4M136,184D4BU4M140,180BR12L8D4R8D4L8BM160,180R8BL4D8BM180,188L8U8R8D8BR8U8R8D4L8BR12BU4D8R8BR4U8R8D4L8BR8D4BR8U4M224,180BM228,184M232,180"+T1600:T+(88,100)(116,116),V+(44,92)(68,108),W+I84724: ""61+(I4,100)(I28,116),W:104,1,(I,100)(I24,116),V:I,/(72,100)(96,116),V,@J1041204,Z(72,J4)(96,J12),W,xS(75120(J100)):S,1,(72,J)(96,J16),V:J,T15: ""61 ::32,3:I120:I:45,3:T:T140:T,(72,120)(96,136),W-(32,124)(64,144),Z-(48,124)(80,144),Z-d32,6:32,6:32,2:32,6:69,8:58,2:58,6:32,2:32,6:19,4:32,10-(188,144)(212,160),V- I921444: "" 61-!(I4,100)(I20,116),W-"(I,100)(I24,116),V:100,1:I-#(144,100)(168,116),V.$J1001204: "" 61.1%(148,J4)(172,J12),W.K&(148,J)(172,J16),V.a'65,1:60,1:50,1.h(J.)S751002:S,1:S:S100752:S,1:S.*T1100: "" 61 ::T.+(148,120)(172,136),V.,I1521844: ""61/ -(I4,120)(I20,136),W/(.(I,124)(I24,140),V:S,1/;/I:T1100:T/089,4:133,4:133,2:133,6:T160:T:89,4:147,4:125,2:133,8/1(184,124)(208,140),W/2(184,128)(208,144),V/3(216,164),4,2:T1300:T:188,20 4(228,164),4,2:T1300:T:195,2: ""61035(240,164),4,2:T1300:T:200,20F6(216,164),4,30l7(252,164),4,2:T1300:T:212,208(228,164),4,3:220,2:T1100: ""61 ::T09(240,164),4,3:235,2:T1100:T0:(252,164),4,3:240,2:T1100:T1;A$:A$""611 <3:41-=:" INSTRUCTIONS:"1Q>"ARROW KEYS MOVE STARFISH UP,"1s?"DOWN, LEFT & RIGHT. SEARCH"1@"BOULDERS FOR MUSSELS(10 TO 100)"1A"CALORIES EACH). YOU NEED 250"1B"CAL. EACH TIDE CYCLE. AFTER 4"2 C"SUCCESSFUL TIDE CYCLES, FIND A"2/D"MATE (LOOK OUT FOR WOLF EELS!)"2SE"YOU MUST FIND A MATE TO WIN."2F"THE MORE WOLF EELS THERE ARE ":"THE HARDER THE GAME IS..."2G:2H"HOW MANY WOLF EELS(1,2,OR3)";P2IN0:TC0:CA0 2J02K1,0:(3)2L77:833NM"C2BM104,80R8M116,72M120,80R8M124,84D8M116,88M108,92U8M104,80":(116,80),2,23N(36,32),24,4,1,.5,.0:(32,108),20,1,1.5,.5,.0:(44,164),16,4,1,.5,.0:(88,48),12,1,1.8,.5,.0:(100,144),12,1,2,.5,.0:4EO(148,56),16,4,2,.5,.0:(152,168),28,4,.8,.5,.0:(192,116),32,1,1,.45,.0:(220,52),20,4,1,.5,.0:(216,180),12,4,3,.5,.04P"C4BM12,32R48;C1BM12,108R40;C4BM28,164R32;C1BM76,48R24;BM88,144R24;C4BM132,56R32;BM124,168R56;C1BM160,128R32U12R32;C4BM200,52R40;BM204,180R24"5iQ(36,12),4,4:(32,84),1,1:(44,152),4,4:(88,36),1,1:(100,128),1,1:(148,36),4,4:(148,156),4,4:(192,92),1,1:(220,40),4,4:(216,156),4,45oR5S89,2:133,2:159,3:176,6:159,3:176,85TX1104:Y172:X2128:Y2925U86:955V Y2140 (80,156)(104,176),W:886 W(104,72)(128,92),W6'XR$:(343)247 976>Y(344)247 1036UZ(341)247 1096l[(342)247 1156\(20,28)2(20,104)2(28,160)2(88,32)2(88,140)21417](152,32)2(180,168)2(200,112)2(228,48)2(228,168)21417^7_72001237!`8579a(X1,Y1)(X2,Y2),V 7GbX191017[cX1X18:X2X287vd(X18,Y1)(X28,Y2),W7e(X1,Y1)(X2,Y2),V7fY1,1:927g(X1,Y1)(X2,Y2),V 7hX22441077iX1X18:X2X287j(X18,Y1)(X28,Y2),W8 k(X1,Y1&9:COPYRIGHT (C) 1983 CLOAD PUBLICATIONS INC.&] :*****************************&:*******staying alive*********&:*******BY ALAN KLEIN*********&(:**********BOX 56*************&2:****HIGHLAND, WV 26346*******'<:******(304) 869-3250*********'5P:*****************************'ZX():(9)1:@106,"staying";:(128);:"alive";:@200,"CAN YOUR COMPUTER";:@232,"HANDLE HIGH SPEED?";:@270,"(Y/N)";($[A$: A$"" 91 : A$"N" 65494,0: T15:@273,"n";: (255),1:@273,"N";: (255),1::100(z\ A$"Y" T15:@271,"y";: (255),1:@271,"Y";: (255),1::65495,0:100(]91(d510(n:(0,0)(255,191),,B(xA40:B40:X214:Y150:C12:C23:A12:X12:DT0:T0:B10:Y10(DX0:DY0)M (9)1:@194,"PLAYERS TAKE YOUR POSITIONS!";:@260,"PRESS ANY KEY TO START.";)mA$: A$"" 141 : 1,0)(A,B,C1):(X,Y,C2))TT1:DXDX(AX):DYDY(BY)) "" 260)(341)247 B12:A10:220*(342)247 B12:A10:220*'ȅ (339)251 A12:B10:220*E҅ (345)251 A12:B10*j܅ (340)223 Y12:X10:260* (338)254 Y12:X10:260* (343)247 X12:Y10:260* (344)247 X12:Y10+ (AA1XX1 BB1YY1) (AA1,BB1)1 (XX1,YY1)1 290+8AAA1:BBB1:XXX1:YYY1+B150+q" S110: 1,(2)1:"O1;L255;4;3;2;1":S+},:N$""+6DT(((DXT)2(DYT)2))(.01T)+@:"YOUR AVERAGE DISTANCE WAS"DT"."+J S15: (255),1:S,T:"YOU stayed alive FOR"T"TURNS.",-^ S15: (255),1:S,;h X1 10,Ur S$(X,2)"***" 390,| DT(S$(X,2)) (S$(X,2))0 390 : X:410,@200,"congratulations!": S15:"L255;O4;1;2;3;4;5;6;7;8;9":S-G@256,"YOUR AVG. IS ONE OF THE TOP 10!!";:: Y10 X 1:S$(Y,2)S$(Y1,2):S$(Y,1)S$(Y1,1):Y:S$(X,2)(DT)-y@320,"WHAT IS YOUR TEAM NAME? ";:(8,128);- N18-@320,"what is your team name";:A$: A$"" 403 : A$(8) N$"":@344,(8,128);:402. A$(13) ZX1 ZX0: : 408.2N$N$A$:@343N,A$;:N.F ZX1 ZX0:.US$(X,1)N$.k@320,(32,143);.x X110. T(S$(X,4)) 430 : X:450/::"YOU stayed alive WITH THE BEST!";: S15:"L255;O2;1;2;3;4;5;6;7;8;9":S: N$"" 440 : ZX1:401/` Y10X 1:S$(Y,3)S$(Y1,3):S$(Y,4)S$(Y1,4):Y:S$(X,3)N$:S$(X,4)(T)/ N$"" ZX1:401:445/‡@320,(32,143);:@483,"PRESS ANY KEY TO CONTINUE";/A$: A$"" 451/̞0 և@6,"***staying alive***"::@74,"scoreboard"01@100,"distance";:@114,"duration";0 X110:@9632X,X;:@10032X,S$(X,1);:@112(S$(X,2))32X,S$(X,2):@11432X,S$(X,3);:@127(S$(X,4))32X,S$(X,4);: 20X,1:0@483,"PRESS ANY KEY TO CONTINUE";1A$: A$"" 501 : 11014:1,1::10001IS$(10,4):Y14:X110:S$(X,Y)"***":X,Y1{(9)1:@106,"staying";:(128);:"alive";1@227,"DO YOU WANT INSTRUCTIONS?";:@270,"(Y/N)";2A$: A$"" 541 : A$"Y" T15:@271,"y";:(255),1:@271,"Y";: (255),1::5502` A$"N" T15:@273,"n";: (255),1:@273,"N";: (255),1::1102j5412&:@42,"instructions"3/0:" IN THIS GAME, TEAMS OF TWO PLAYERS TRY TO SEE HOW WELL THEYCAN COOPERATE.":" EACH PLAYER CONTROLS AN EVER-INCREASING LINE OF COLOR. THEY HAVE TWO GOALS:"3:" 1) TO KEEP THE HEADS OF THEIR LINES AS CLOSE TOGETHER AS POSSIBLE; 2) TO stay alive AS LONG AS POSSIBLE."3D@483,"PRESS ANY KEY TO CONTINUE";:0,14EA$: A$"" 5814N::" TO stay alive, EACH PLAYER MUST NOT ALLOW THE HEAD OF HIS/ HER LINE TO TOUCH ANY LIT PORTION OF THE SCREEN. LIT PORTIONS INCLUDE THE BORDER AND BOTH PLAYERS' TRAILS."4X(32,"=");:" THE CONTROL KEYS ARE:"5b" dir left plyr right plyr UP UP ARROW <:> DOWN DOWN ARROW <@> LEFT LEFT ARROW RIGHT RIGHT ARROW";5l@483,"PRESS ANY KEY TO CONTINUE";:0,15mA$: A$"" 621 : ::110E:"$&:&:&k: ALL COVERS MUST HAVE THE LOGO AT THE TOP OF THE SCREEN DURING GRAPHICS DISPLAY.&:DECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.'.:LINES 50-95 PUT THE LOGO ON SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.':DISCLAIMER (LINES 100-175) MUST ALWAYS BE INCLUDED IN ANY COVER PROGRAM.' 4: LO$(7),IA(100)(I0:J0:K0:Q0:I$"":S$"":CT0:I00:ZI10:I20:I30:C0:S0:X10:X20:Y10:Y20:X0:D0:XD0:YD0(( 3,1: (8)(41 (8):(0,0)(4255,45),,BF)2LO$(0)"jZUVeUV")4LO$(1)"VfZfjfj"*6LO$(2)"UUUUVUUUVUUUZUUUV"+l8LO$(3)"ZZZZZZZZZZZjVUiZeiZVZZZjVUeVeYZUZZVZV",::LO$(4)"jUUeVUUVUYZUUUiUjVUUViYVUUUiUjVVZVYVeeUUeejjZZVjZYVijZjjZZZVeiZViUijZjjZYZZejZVeeijZj"-LO$(6)"UjYijjZVjUUUjYiZjjUUUjUjUUUUUUUUUUYUeUjUUjUjUUVUUUUVUUYUiUjUUjjUZUYUjUUYUjUj".*ALO$(7)" 44 44Z&5J&55 5J&9".FFVP0:AD0:VP(LO$(0)).cKAD(VP2)256(VP3).uPVP(LO$(7)).UQ(VP2)256(VP3):Q.XQ7,(25)25.Z"C3BM0,191R255U149L255D148R255BM0,0"._Q(AD).`1000/d OUR DISCLAIMER - HAS TO BE IN ALL COVERS.//e T1 2000:/5i/Un@38,"CHROMASETTE MAGAZINE"/|s" ISSUE #31 JANUARY 1984"/u/x:" ALL PROGRAMS CONTAINED HEREIN"/}" COPYRIGHT (C) CLOAD"/" PUBLICATIONS P.O. BOX 1448"0" SANTA BARBARA, CA 93102."08" REPRODUCTION BY ANY MEANS"0_" PROHIBITED. CLOAD PUBLICATIONS"0" ASSUMES NO RESPONSIBILITY FOR"0" ERRORS, OMISSIONS OR DAMAGES"0" CAUSED BY THE USE OF THESE"011)"PROGRAMS.";1I1 3500:: ER1 : 1,1: 1!161.A()1;ST(3)1IR31:TT11P:1W:1 3,1: 1:(128,96),300:(0,45)(255,45),,B:1,11R11:R21:R31:R411PC1:RS(7): RS 1570,1180,1280,1500,1440,2000,210028"1350:1280:2000:2100:100:1440:1500:1180:100:2100:2000:15702Z$D(3): D 1440,1500,12802c&ER12n'TI2002)4,1:1,1:T1TI::3,1:1,1:TITI4:T1 TI::TITI4: TI60 1065 2* T150:4,1:1,1:L130::3,1:1,1:L130: L: T3".R(2)2: R,1:1,1:T11000:: 1003)8:36LST(3)3FVT11000:3m` (2)1 4,1:MM1 : 3,1:MM03j MM1 1,1 : (2)2 1,1 : 1,03t3~:****************************3:3X1128:Y118:Y1118:K.5725494R1(ST):R2(ST):R3(ST):R4(ST)40 X128 0 R24KX1255X:YYK:Y1Y1K4bĻ(X,Y)(X1,Y1),,B4q΁1660: X4}؁ 11004 4:4X128: Y1191118ST4 Y236Y1:(X,Y)(0,Y1),4(X,Y)(255,Y1),4X2255X:Y2236Y:Y3236Y15(X2,Y2)(0,Y3),5'(X2,Y2)(255,Y3),5? 1660: Y1:11005F( 5M<:5jFY1192: Y45 191 R35wPY1Y1R35Z(0,Y)(255,Y1),:1660: Y5nX10: X255 0 R3:16605xX1X1R3:(X,45)(X1,191),: X511005 5:6>X1255:Y1191:Y45:K.5472549:R43 1 1:X0 128 R4:16606W:FORT=1TOTT*X:NEXTT6rX1255X:YYK:Y1Y1K6(X,Y)(X1,Y1),,B: X: R46 11006Ȑ 6:6X128:Y118:Y145 191 R1:(X,Y)(0,Y1),:1660: Y17 X10255 R1:(X,Y)(X1,191),:1660: X17Q Y1191 45 R1:(X,Y)(255,Y1),:1660: Y17 X12550ST:(X,Y)(X1,45),:1660:X1711007 7:7"Y118:X128 0 ST7,X1255X76(X1,Y)(X,45),7@(X1,Y)(X,191),8BX2255X1:X3255!"$%&')*+-.OPARTCOVBAS 'TAX83 BAS#5STAYLIV BASSTARMUSSBASNFORTRAN BAS(FORDEMO FORqHELP DAT^CLIMB BIN,ORDEMO TMPORDEMO BASX:Y21188D(X2,Y2)(X3,45),87F(X2,Y2)(X3,191),8GJ 1660: X8RT11008Yh 8`r:8z|PCPC1: PC9 PC18 PC88X128:Y458ڀ Y145 191 R1:(X,Y)(0,Y1),:(X,Y)(255,Y1),:1660:8߅ (2)2 204095X10 127 R1:(X,Y)(X1,191),:(X,Y)(255X1,191),:1660:9<:9I1100:9^4X0:Y45:R(4)9l9YS.572559>Y1(191Y)45:X1255X9H(X,118)(128,Y),9R(128,Y),9\(X1,118),9f(128,Y1),9p(X,118),:zXXR:YY(RYS): X128 1100::# 1660: 2110191),:1660:9<:9I1100:9^4X0:Y45:R(4)9l9YS.572559>Y1(191Y)45:X1255X9H(X,118)(128,Y),9R(128,Y),9\(X1,118),9f(128,Y1),9p(X,118),:zXXR:YY(RYS): X128 +2&':L$"--------------------------"&D" FILING STATUS"&g" HIT APPROPRIATE LINE NO."&m&" 1--SINGLE":" 2--MARRIED FILING JOINTLY":" 3--MARRIED FILING ALONE":" 4--UNMARRIED HEAD OF";&" HSE":" 5--WIDOW(ER)"':" ";:190'S$A$:::'@ S$"1"S$"2"S$"3"S$"4"S$"5"10:1'F ' " ANSWER THE FOLLOWING":" --------------------"::E00:E10' "LINE 6A-EXEMPTION FOR YOURSELF (Y/N)? ";:190:A$"Y"E1E01' E2E1'A$"Y"A$"N"10(S$"2"19(:E2E1(Z"LINE 6B-EXEMPTION FOR SPOUSE (Y/N)? ";:190:A$"Y"E2E11(rA$"Y"A$"N"16("LINE 6C-EXEMPTIONS FOR CHILDREN A NUMBER";NC("LINE 6D-OTHER DEPENDENTS A NUMBER";DO(EME2NCDO)"LINE 6E-TOT NO. EXEMPTIONS ";EM)X:" INCOME ITEMS":" ------------":)y"LINE 7-WAGES,TIPS,ETC ";W$)W$"SUM"W(W$):31)"WAGE";WX)WWWX)WX030)26)"LINE 7-WAGES,TIPS,ETC.-";W*"LINE 8-INTEREST INCOME ";I*$ "LINE 9A-DIVIDENDS";DV*E!S$"2"XC200.00:XC100.00*l"DVDVXC:"LINE 9B-EXCLUSION. ";XC*{#DV0DV0*$DV(100(.0001DV))100*%"LINE 9C-DIV AFTER EXCL. ";DV*&:"WERE LINES 7,8 AND 9 YOUR ONLY INCOME(Y/N)?";*'190+ (A$"Y"56+)A$"N"39+R*"LINE 10-STATE/LOCAL TAX REFUND ";ST+s+"LINE 11-ALIMONY RCVD. ";AR+,"LINE 12-BUSINESS INC OR LOSS (+/-) ";B+-"LINE 13-CAPITAL GAINS OR LOSSES (+/-) ";CG,."LINE 14-40% CAPITAL GAINS NOT REPORTED ON LINE 13(PGE 9 INSTR)";CN,Z/"LINE 15-SUPPLEMENTAL GAIN/LOSS FORM 4797 (+/-) ";SG,0"LINE 16-PENSIONS,IRA DISTR,ANNU-ITIES NOT REPORTED ON LINE 17 ";OP,1"LINE 17A-OTHER PENSION/ANNUITIES";PA-2"LINE 17B-TAXABLE AMOUNT OF 17A (WORKSHEET PGE 10) ";AT-F3"LINE 18-RENTS/ROYALTIES ETC. FROM SCHED E ";RR-w4"LINE 19-FARM INCOME/LOSS (+/-) ";FI-5"LINE 20A-UNEMPLOYMENT COMPEN- SATION ";UC-6"LINE 20B-TAXABLE AMOUNT OF 20A (SEE WORKSHEET PGE10 INSTR) ";CU.7"LINE 21-OTHER INCOME";OI.`8ICOICUFIRRATOPSGWCGDVISTARBCN:"LINE 22-GROSS INCOME ";IC.h9L$.::" ADJUSTMENTS TO INCOME":" ---------------------".;"ARE THERE ANY ADJUSTMENTS (Y/N)?";.<190.=A$"N"72.>A$"Y"60/?"LINE 23-MOVING EXPNS ";ME/?@"LINE 24-BUSINESS EXPNS";BE/WA"LINE 25A-IRA ";IR/xB"LINE 25B-1984 AMOUNT ";I84/C"LINE 26-KEOGH PAYMENT ";KP/D"LINE 27-SAVINGS WITHDRAWAL PENALTY ";SP/E"LINE 28-ALIMONY ";A0:FS$"2":"WORKING COUPLE DEDUCT.(SCHED W)":"-------------------------":2620nG"LINE 30-DISABILITY INCOME EXCLUSION";DX0HAJDXWCSPKPMEIRBEA:TAICAJ:"LINE 31-TOT ADJUSTMNTS ";AJ0IL$:"LINE 32-ADJ GROSS INC";TA1 JL$:"ARE YOU ITEMIZING DEDUCTIONS (Y/N)";1K1901%LA$"N"27515MA$"N"1301ENA$"Y"751O:" DEDUCTIONS-SCHEDULE A":" ---------------------"1P"LINE 1-MEDICINE/DRUGS";DR1QD1(TA)100:"LINE 2-";D11RDRDRD1:DR0DR01S"LINE 3-";DR2#T"LINE 4A-DOCTOR/INSURNCE/HOSP EXPENSE";M12DU"LINE 4B-TRANSPORTATION";M22wV"LINE 4C-OTHER MEDICAL SUPPLIES";M32WDHDRMIM1M2M3:"LINE 5-";DH2XM4(5TA)100:"LINE 6-";M42YDCDHM4:DC0DC02Z"LINE 7-";DC3[:"LINE 8-STATE, CITY OR LOCAL TAXES";SX3O\"LINE 9-REAL ESTATE TAXES";RX3]"LINE 10A-SALES TAXES (SEE TABLES) ";SL3^"LINE 10B-MOTOR VEHICLE(CAR) SALES TAX ";EX3_"LINE 11-OTHER TAXES";OT4`TXEXSLRXSXOT:"LINE 12-";TX:4=a"LINE 13A-HOME MORTG INT PAID TO INSTITUTIONS ";MI4tb"LINE 13B-HOME MORTG INT PAID TO INDIVIDUALS ";M24cMPMIM24d"LINE 14-CHARGE ACCOUNT INTEREST ";CA4e"AUTO LOAN INTEREST ";CI4f"OTHER INTEREST ";OI5gOIOICI:"LINE 15-";OI5hTIOICAMP:"LINE 16-";TI5Wi:"LINE 17A-CASH CONTRIBUTIONS UNDER $3000";C15j"LINE 17B-CASH CONTRIBUTIONS OVER $3000";C2:CCC1C25k"LINE 18-OTHER CONTRIBUTIONS";C35l"LINE 19-CARRYOVER";C45mCCCCC3C45n"LINE 20-";CC:62o"LINE 21-CASUALTY LOSSES (FORM 4684)";CL6Op"LINE 22-UNION DUES";IE6yq"LINE 23-TAX RET PREPARATION FEE";PR6r"LINE 24-OTHER MISC ";OM6sMDOMIEPR:"LINE 25-";MD6tIDDCMDCCTITXCLM:"LINE 26-";ID:TX06uS$"5"LL34007 vS$"2"LL34007!wS$"4"LL230075xS$"1"LL23007IyS$"3"LL17007\z"LINE 27-";LL7t{IDIDLL:ID0ID07|"LINE 28-";ID7}" BACK TO FORM 1040":" -----------------"7~"LINE 33-";TA8A$"N""LINE 34B-ALLOWABLE CHARITABLE DED";ID8CA$"Y""LINE 34A-ITEMIZED DEDUCTIONS";ID8_TATAID:"LINE 35-";TA8EMEM1000:TATAEM:"LINE 36-";EM8TA(TA100.01)1008"LINE 37-TAXABLE INCOME";TA8T1TA100:T2(T1)8FR((T1)(T2))9FR.50TA(T1)100259-FR.50TA(T1)10075973189HFPTX(TX)9jFP.5TX(TX):TX(TX)19t3149"DO YOU WANT TO TRY INCOME AVERAGING? (Y/N)";91909A$"Y"2839A$"Y"1469A$"N"1429L$:"DO YOU HAVE ANY CREDITS(Y/N)?";:190:.A$"N"160:RA$"Y""Y OR N ONLY"::147:w"LINE 41-CREDIT FOR ELDERLY";CE:"LINE 42-FOREIGN TAXES";FT:"LINE 43-INVESTMENT CREDIT";IC:"LINE 44-POLITICAL CONTRIB";PC;"LINE 45-CHILD/DEPENDENT CARE EXPENSE";DC;/"LINE 46-JOBS CREDIT";JC;O"LINE 47-ENERGY CREDIT";EC;kTCCEFTICDCPCJCEC;"LINE 48-TOTAL CREDITS";TC;TXTXTC:"LINE 49-BALANCE";TX;L$;"DO YOU HAVE ANY OTHER TAXES(Y/N)";:190;A$"N"171< A$"Y":161<."LINE 50-SELF EMPLYMNT TAX";SE"LINE 58-1983 ESTIMATED TAX PAYMENTS FROM 1982 RETURN";TP>$"LINE 59-EIC";EC>S"LINE 60-AMOUNT PAID WITH FORM 4868";AP>q"LINE 61-EXCESS FICA";XF>"LINE 62-SPECIAL FUELS TAX CREDIT";SF>"LINE 63-REGULATED INVESTMENT COMPANY CREDIT";RC?TPTWTPECAPXFSFRC:"LINE 64-TOTAL PAYMENTS";TP?L$?-TT(TPTX)?tTPTX"LINE 65-AMOUNT OVERPAID";TT:"LINE 66-AMOUNT REFUNDED";TT?TPTX"LINE 68-TAX OWED";TT?L$??A$:A$""190?A$?II1150?Q$?‹?Ð?Ă?ŅTA3400TX0@ƅTA3400TX.11(TA3400)@=DžTA5500TX231.13(TA5500)@_ȅTA7600TX504.15(TA7600)@ɅTA11900TX1149.17(TA11900)@ʅTA16000TX1846.19(TA16000)@˅TA20200TX2644.23(TA20200)@̅TA24600TX3656.26(TA24600)AͅTA29900TX5034.30(TA29900)A=΅TA35200TX6624.35(TA35200)AcυTA45800TX10334.40(TA45800)AЅTA60000TX16014.44(TA60000)AхTA85600TX27278.48(TA85600)A҅TA109400TX38702.50(TA109400)AӐAԂAՅTA2300TX0BօTA2300TX.11(TA2300)B5ׅTA3400TX121.13(TA3400)BW؅TA4400TX251.15(TA4400)ByمTA6500TX566.15(TA6500)BڅTA8500TX866.17(TA8500)BۅTA10800TX1257.19(TA10800)B܅TA12900TX1656.21(TA12900)C ݅TA15000TX2097.24(TA15000)C/ޅTA18200TX2865.28(TA18200)CT߅TA23500TX4349.32(TA23500)CyTA28800TX6045.36(TA28800)CTA34100TX7953.40(TA34100)CTA41500TX10913.45(TA41500)CTA55300TX17123.50(TA55300)CCTXCDTA1700TX0D.TA1700TX.11(TA1700)DSTA2750TX115.50.13(TA2750)DuTA3800TX252.15(TA3800)DTA5950TX574.50.17(TA5950)DTA8000TX923.19(TA8000)DTA10100TX1322.23(TA10100)ETA12300TX1828.26(TA12300)E+TA14950TX2517.30(TA14950)EPTA17600TX3312.35(TA17600)EuTA22900TX5167.40(TA22900)ETA30000TX8007.44(TA30000)ETA42800TX13639.48(TA42800)ETA54700TX19351.50(TA54700)EEFTA2300TX0F"TA2300TX.11(TA2300)FDTA4400TX231.13(TA4400)FfTA6500TX504.15(TA6500)FTA8700TX834.18(TA8700)FTA11800TX1392.19(TA11800)FTA15000TX2000.21(TA15000)FTA18200TX2672.25(TA18200)GTA23500TX3997.29(TA23500)GATA28800TX5534.34(TA28800)GfTA34100TX7336.37(TA34100)GTA44700TX11258.44(TA44700)GTA60600TX18254.48(TA60600)GTA81800TX28430.50(TA81800)GH"LINE 1-WAGES PAID YOU";W1:"YOUR SPOUSE";W2H\"LINE 2-NET SELF EMPLOYMENT PROFIT/LOSS YOU";S1:"YOUR SPOUSE";S2HW1W1S1:W2W2S2:"LINE 3-(YOU)";W1:"YOUR SPOUSE";W2H "LINE 4-ADJ+REPAYMENT OF SUB PAY"H "YOU";A1:"YOUR SPOUSE";A2H W1W1A1:W2W2A2I" "LINE 5-YOU";W1:"LINE 5-YOUR SPOUSE";W2I: W1W2W3W2:W3W1IQW330000W330000I"LINE 6-";W3:"LINE 7-NO ENTRY REQUIRED":WC(W310)100:"LINE 8-DEDUCTION";WCI:" BACK TO FORM 1040":" -----------------"I"LINE 29-";WCIJ9:"CHARITABLE CONTR WORKSHEET","--------------------------"JX"LINE 1-CASH CONTRIB.";CCJ"LINE 2-OTHER CONTRIB.";CO:CCCCCOJ"LINE 3-TOTAL CONTRIB.";CCJID(CC25)100:ID25ID25:"LINE 5-DEDUCTION";IDJL$K" BACK TO FORM 1040"," -----------------"KK%Kj:"SCHEDULE G-INCOME AVERAGING","---------------------------":KI(6),X(10),TI(7),TX(10)KI(4)100T1K"LINE 1-AMOUNT FROM LINE 34 1979 FORM 1040 ";:I(1)LL "LINE 2-ENTER YOUR TOTAL NO. OF EXEMPTIONS MULTIPLIED BY $1000 FOR 1979";X(1):TI(1)I(1)X(1):"LINE 3-";TI(1)L!"LINE 4-AMOUNT FROM LINE 34 1980 FORM 1040 ";:I(2)M""LINE 5-ENTER YOUR TOTAL NO. OF EXEMPTIONS MULTIPLIED BY $1000 FOR 1980";:X(2):TI(2)I(2)X(2):"LINE 6-";TI(2)MN#"LINE 7-AMOUNT FROM LINE 34 1981 FORM 1040 ";:TI(3):TI(3)0TI(3)0M$"LINE 8-AMOUNT FROM LINE 37 1982 FORM 1040 ";:TI(4):TI(4)0TI(4)0M%N14:WWWWTI(N):M&:"LINE 9-EXCLUDED FORIEGN INCOME 1979 TO 1982";XINq'WWWWXI:"LINE 10-";WW:W1(WW30100):"LINE 11-";W1:"LINE 12-";I(4):"LINE 13-INPUT EXCESSIVE DISTRI- BUTIONS SECTION 72";XDN(XXI(4)XD:"LINE 14-";XX:"LINE 15 AMOUNT SEE INSTR";CPN)AII(4)XDCP(WW30100)N*:"LINE 18-AVERAGABLE INC";AI:O+AI3000"SORRY, CANT AVERAGE"::OJ,TA(WW30)100:318:TX(1)(TX)::20-26Oq-TATA(20AI)100:319:TX(2)TXO.TATACP:318:T(3)(TX)O/TX(5)(TX(2)TX(1))4O0TAI(4):318:TX(6)(TX)O1TAXX:318:TX(7)(TX)O2TX(8)TX(6)TX(7)P3TX(100(T(3)TX(5)TX(8))100)P+4TX0TX0P>5"LINE 32-";TXPJ6312:PP7Pc8:"FORM 1040"Pt9"---------"P:"LINE 38-TAX";TX:"LINE 39-ADDITIONAL TAX";ATP;TXTXATP<"LINE 40-TOTAL TAX";TXP=P>P?S$"1"212Q@S$"2"S$"5"196QAS$"3"230Q+BS$"4"246Q1CNE 32-";TXPJ6312:PP7Pc8:"FORM 1040"Pt9"---------"P:"LINE 38-TAX";TX:"LINE 39-ADDITIONAL TAX";ATP;TXTXATP<"LINE 40-TOTAL TAX";TXP=P>P?S$"1"212Q@S$"2"S$"9:COPYRIGHT (C) 1983 CLOAD PUBLICATIONS INC.\ :****************************:* FORTRAN TRANSLATOR *:*BOB JOHNS 134 GEORGIAN WAY*(:* SHERWOOD PARK AB CANADA *2:****************************<2140KF500:FR$(50),FL$(50),FO$(50),FP$(50),GT$(50),GL$(50),SB$(50),SL$(50),FF$(5),FB$(5)PFF$(1)"EQ":FF$(2)"GT":FF$(3)"LT":FF$(4)"GE":FF$(5)"LE"ZFB$(1)"=":FB$(2)">":FB$(3)"<":FB$(4)"=>":FB$(5)"<="d:" FORTRAN SOURCE TRANSLATOR":(32,"-") n"FOR> ";F$!xF$"EDITOR"18605F$"EXIT"2090IF$"HELP"2100_"OPTIONS: ";OP$y(OP$,"P")0DV2(OP$,"L")0LL1:LL0(OP$,"S")0SE$"SYNTAX ERROR"(F$,"/")0230ȅ(F$,".")0230҅(F$)10110F$F$".FOR":250*(F$)14110MP(F$,"/"):P0P(F$,".")P(F$,"/"):P0P(F$,"."):S$(F$,P1):"I",#1,F$#1,A$(A$,1)" "A$(A$,(A$)1)LL1#DV,A$"(1)1710,(A$,1)"C"2606(A$," DATA")0360)@P(A$,"/"):P0350IJP1(P1,A$,"/"):P10350ST460c^XT16:380hP(A$," INTEGER"):P0390rXTP1|ECEC1:#DV,A$:#DV,XT)"^":SE$:260(A$," IF")0460P1(A$,"IF"):P(A$,"("):P0450P1P:P(A$,"."):P0450AP1P:P(P11,A$,"."):P0450`P1P:P(A$,")"):P0450j460|XTP11:380̅(A$,2)" "490օ(A$)&H3A (A$)&H2F 490XT0:380P(A$," PRINT"):P0520XTP1:380 P(A$," INPUT"):P0500 3SY$" WRITE":RI6:FL0 IFLFL1:FL2620 _(A$,SY$)0610 z&P(A$,"("):P0570 0XT(A$,SY$)RI:380 :P(A$,")"):P0590 DXT(A$,"(")4:380 NP(A$,","):P0610 XXT(A$,"(")1:380!bSY$" READ":RI5:530!;lP(A$," FORMAT"):P0260!Rv(A$,"(")0650!cXTP6:380!z(A$,")")0670!XTP12:380!P(A$,"'"):P0700!P1(P1,A$,"'"):P10700!XTP1:380!260!ƚ#1" Ї#DV,"TOTAL SYNTAX ERRORS=";EC"څDV0750":"TOTAL SYNTAX ERRORS=";EC"HEC0770"j"EDIT FILE AND RE-COMPILE":"}"I",#1,F$:J0" T$S$".TMP":"O",#2,T$""SECOND PASS..."" JJ1:#1,A$"*(1)11070"4(A$,1)" "A$(A$,(A$)1)#>(A$,1)"C"800#+H(A$," REAL")0800#LR(A$," CHARACTER")0800#p\P(A$," DIMENSION"):P0880#fPP10:A$"DIM"(A$,(A$)P):1000#p(A$," STOP")0A$"END":1000#zP(A$," DATA"):P0910$WP1(A$,"/"):P2(P11,A$,"/"):H$(A$,P6,P1(P6))"="(&H22)(A$,P11,P2(P11))(&H22):A$H$:1000$u(A$," FORMAT")01090$(A$," END DO")0A$"NEXT":1000$(A$," END")0800$(A$," DO")01210$(A$," CONTINUE")0970%JGCGC1:GL$(GC)(A$,(A$," ")1):GT$(GC)((J),((J))1):A$"REM":1000%mʅ(A$," SUBROUTINE")01330%ԅ(A$,"**")01400%ޅ(A$,"//")01410%(A$,1)" "1020%A$(A$,(A$)1):1000%A$(J)" "A$&(A$,1)" "1050&A$(A$,(A$)1):1030&*#2,A$&4$800&@.#1:#2&K81420&BY$"":FCFC1:B(A$,"("):B1(A$,")"):Z$(A$,B1,B1(B1))&LP(Z$,"',"):P01130',VP1(Z$,"'"):Y$(&H22)(Z$,P12,P(P12))(&H22):FO$(FC)"F":FP$(FC)Y$:(Z$,P11,1)"$"FR$(FC)"NC":FR$(FC)"CR"'7`1200'SjP(Z$,",'"):P01160'tP1(Z$,"'"):P(P11,Z$,"'"):Y$(&H22)(Z$,P12,P(P12))(&H22):FO$(FC)"L":FP$(FC)Y$:(Z$,P11,1)"$"FR$(FC)"NC":FR$(FC)"CR"'~1200( P(Z$,"'"):P01190(P1(2,Z$,"'"):Y$(&H22)(Z$,P2,P1(P2))(&H22):FO$(FC)"O":FP$(FC)Y$:(Z$,P1,1)"$"FR$(FC)"NC":FR$(FC)"CR"(1200(FO$(FC)"N":FP$(FC)""(LN$(A$,(A$," ")1):FL$(FC)LN$:800)%P(A$,"="):P1(A$,","):P2(P11,A$," "):P20P2(A$)1)AąP0P1P P2P1 1240)·#DV,A$:#DV,P1)"^":#DV,SE$:"EDIT FILE AND RE-COMPILE":#1:#2:T$:)P3(P11,A$,","))FR$(A$,P1,P1(P1)))P30ST$(A$,P31,P2(P31)))P30ST$"1"*P301300*, T0$(A$,P11,P2(P11)):1310*JT0$(A$,P11,P3(P11))*iP4(A$,"DO "):P401230*(P4P43:VR$(A$,P4,PP4):A$"FOR "VR$"="FR$" TO "T0$" STEP "ST$:1000*2P(A$,"SUBROUTINE "):P01230*>>>";Z$.-,1440.G6LL$(A$,(A$," ")).@FO$(I)"O"A$LL$"PRINT#"(Y)","FP$(I):1680.JAC$(A$,(A$)(A$,")")).TP(AC$,",").^P01650.hAC$(AC$,P1)";"(AC$,(AC$)P):1620/&rFO$(I)"N"A$LL$"PRINT#"(Y)","AC$:1510/f|FO$(I)"F"A$LL$"PRINT#"(Y)","FP$(I)";"AC$:1680/FO$(I)"L"A$LL$"PRINT#"(Y)","AC$";"FP$(I)/FR$(I)"NC"A$A$";"/15100P(A$,"GOTO"):N$(A$,(A$)(P4)):I1GC:GL$(I)N$17300I0U#DV,A$:#DV,"ERROR: UNRESOLVED GOTO LABEL":#DV,">>>>";N$:14400A$(A$,(A$,"GOTO")3)GT$(I):15100P(A$,"CALL"):N$(A$,(A$)(P4)):I1SC:SB$(I)N$17800֋I1 #DV,A$:#DV,"ERROR: UNDECLARED SUBROUTINE":#DV,">>>>";N$1ꁥ14401DA$(A$,(A$," "))"GOSUB"SL$(I):15101P(A$,"("):P1(A$,","):PP1:Y((A$,P,P1P)):Y5Y0:Y6Y2:Y7Y11A$(A$,(A$," "))"INPUT#"(Y)","(A$,(A$)(A$,")")):15102:* CHANGE 'IF' STATEMENTS2ZP(A$,"."):P1(P1,A$,"."):TS$(A$,P1,P1(P1)):I15:TS$FF$(I)18502a&I2l012302:P2(A$,"(")1:P3(A$,")"):A$(A$,(A$," "))"IF "(A$,P2,PP2)FB$(I)(A$,P11,P3(P11))" THEN "(A$,(A$)P3):14803D:8)"EDITING UTILITIES":3N"1 COPY FILE FROM TAPE TO DISK"::"2 CONVERT DISK FILE FROM BASIC EDITOR TO FORTRAN FORMAT"::"3 RETURN TO COMPILER":3X"COICE: ";X$3bX(X$):X1X318803lX 1910,2000,1003v:"TAPE FILENAME: ";TF$4"DISK FILENAME: ";DF$4?"READY TAPE AND PRESS ";X$4P"I",#1,TF$4`"O",#1,DF$4m#1,A$4x#1,A$4(1)119604ƚ#1:#1:18604л"NAME OF FILE (INCLUDING THE EXTENSION) CREATED BY THE BASIC EDITOR: ";TF$5Sڻ"NAME OF FILE (INCLUDING THE EXTENSION) TO BE WRITTEN IN FORTRAN FORMAT: ";DF$5o"I",#1,TF$:"O",#2,DF$5{#1,A$5#1,A$5A$(A$,(A$)(A$,"'"))5 #2,A$5(1)120405 #1:#2:18605*:64"I",#1,"HELP.DAT":NN111::NM115:#1,A$:A$:NM62>X$:X$""21106`HNN:#1:"**END OF HELP. PRESS **"6pRX$:1006\0:1:70#1,A$5A$(A$,(A$)(A$,"'"))5 #2,A$5(1)120405 #1:#2:18605*:64"I",#1,"HELP.DAT":NN1&./'&&9*),н/<|22' *a}2'(e&9&&н&۽''M,]&2P2222φ22~턆0z2&022|+O,29## 2229˷ɷǷŷ·""9 &9o&&9 ী & 0 %&91Z'2X4'"50 9@ `1z2&91'2UUz2&0 922OTT2=0B222 2=22222222.2}2&V}2'-t2v2v2t2v2v2v2v2v2v2v2v2z2 222턶220 1"z2&92t2v2Ft2v2FIy2y2Iy2y2t2v2y2y2t2v2y2y2z2&2222]2'4' '+ 2H(2(ܽ) &9DDDC2DC22߷C22DDC22922&!2DDD=12O2TTT2!&O922(M'A2(22 +(2&2&2&2&222)2&z2&|2&|2&z2|22&_2O2222'k92 =2O2TT22 턦 0 z2&922222z2&22  z2&22 @ 0&Ҷ2229 ,)))Հ)))Ջ&9N de)Նɽ))9|22& |22%2J45M&9=22섷2222)2(݁'uA2& & & &22222* '~+ '~+ 22*'  ' 2t222'222&z2&|2&|2&z2O2222'k222턶222,/22,/~+9 dJ& dJ&Z&92|22&02& 02~('Ƿ2 2J1?'M&  9*Hz2&99=/222DVt2FVz2& 0@z2&92222DDDDa+2c+2DDDDe+2g+92Ž2r450|2¶2 &,9XO2æ_22=0B21 z2&922r 01"01"40HHH!HHH509222Ɓ,/22ǁ,/~-U22ȁ,/22Ɂ,/~-ܶ22ʁ,0/,22ˁ,"/~.42Ǝ'k2Ȏ'k2ʎ'k9 2½,{92r-L2Ɓ9,2ƽ)|22Ǝ'k.2Ɓ9& 2ƽ)z22Ǝ'k.2Ɓ9&2ƽ)|22Ǝ'k.2ǁU&2ƽ)|22Ǝ'k.2ƁC&P,~-02̎2t-L2ȁI/p22Ƚ)2Ȼ2̷2Ȏ'k.2ȁI&2Ƚ)|22Ȏ'k.2ɁU&P,~-02̎2v-L2ʁN/p22ʽ)2ʻ2̷2ʎ'k.2ʁN&2ʽ)|22ʎ'k.2ˁU&P,~-0222S)9Ʒʷ·Ķ""`&9../ͦ@&'Y'N&LJ&0&9./d@6&'92,PA'221Z2&92ǁU& 2ɁU&2ˁU&Ƚ)J&/&99CLIMB COPYRIGHT (C) CLOAD 1983 BY A PAKERSKI PRESS ANY KEYPLAY AGAIN? Y OR N