C64S tape image fileHANDS ON BASIC 2 >7DA1 1>7DA2 Do7DA9 Vŗ7DA14 1 7DA15 ¸:7EX1 dō7EX2 cV7EX3 š7EX4 xŊ8DA1 k58DA4 ą 8DA7 ZQ 8DA11 qĢ 8DA17 Î 8DA22 Îę 8DA26 ’¸ 8EX1 J 8EX2 úO8EX3 HI8EX4 dY ˛ 10n™ Y,!xY ˛ YĒ55‚‹ Y ŗ˛ 50 § 110;Œ€dd Y ˛ 10 ¤ 50 Š 5 n™ Y,(x‚ Y.‚€dd X ˛ 1 ¤ 3!n Y ˛ 1 ¤ 4+x™ X,Y3‚‚ Y;Œ‚ XA–€dd X ˛ 1 ¤ 5n™ ŖX);,x Y ˛ X ¤ 57‚™ "Y";?Œ‚ YE–™M ‚ XSĒ€d d… AnB ˛ ē(A)x™ B(‚‰ 100.Œ€dd™ "HOW MANY NUMBERS";#n… N>x™ "ENTER THE NUMBERS,"T‚™ "ONE AT A TIME"^ŒS ˛ 0n– I ˛ 1 ¤ Nv … X‚ĒS ˛ SĒXŠ´‚ I–žA ˛ S­N¯ș "THE AVERAGE IS";AĩŌ€dd™ "DEG. F","DEG. C"n™6x F ˛ O ¤ 100 Š 10I‚C ˛ 5Ŧ(FĢ32)­9SŒ™ F,C[–‚ Fa €d'dA$ ˛ "ABCDEFGHIJKLMNOPQRSTUVWXYZ"7n I˛ 1 ¤ 21Bx™ ŖI);R‚™ Ę(A$,I,6)ZŒ‚ I`–€dd™ "ASSET VALUE ($)";"n… P>x™ "ASSET LIFE (YEARS)";F‚… NLŒ™k–™ "YEAR","DEPREC.","VALUE"q ™{ĒS ˛ 0‹´ I ˛ 1 ¤ N—žS ˛ SĒIŸȂ IĒÜP1 ˛ Pēæ I ˛ 1 ¤ NĖđF ˛ (NĒ1ĢI)­SØúD ˛ PŦFæP1 ˛ P1ĢDķ™ I,D,P1û‚ I"€ddA$(1) ˛ "HOUSE"(nA$(2) ˛ "BARN";xA$(3) ˛ "SHED"O‚A$(4) ˛ "STORE"cŒA$(5) ˛ "CABIN"o–™ A$(4)u €dd I ˛ 1 ¤ 5n‡ B$(I)%x‚ I@‚ƒ "RED","WHITE","BLUE"VŒƒ "GREEN","BROWN"b–™ B$(3)h €ddC$(1,1) ˛ "WHITE"-nC$(1,2) ˛ "BLACK"CxC$(1,3) ˛ "BROWN"W‚C$(2,1) ˛ "CAR"lŒC$(2,2) ˛ "BIKE"‚–C$(2,3) ˛ "PLANE"’  I ˛ 1 ¤ 2 Ē™ C$(I,2)¨´‚ IŽž€ddX(1) ˛ 21nX(2) ˛ 13+xX(3) ˛ 168‚X(4) ˛ 8FŒX(5) ˛ 11Q–™ X(1)W €ddY(1,1) ˛ 2nY(1,2) ˛ 5.xY(1,3) ˛ 1=‚Y(2,1) ˛ 2LŒY(2,2) ˛ 4[–Y(2,3) ˛ 3h ™ Y(1,3)nĒ€dd† X(12),Y(12)$n I ˛ 1 ¤ 124x‡ X(I),Y(I)<‚‚ ILŒ™ X(1)ĒY(4)V–ƒ 2,1a—ƒ -1,3k˜ƒ 5,6u™ƒ 2,4šƒ 3,1‰›ƒ 8,4“œƒ 5,1ƒ 3,4§žƒ 6,2ąŸƒ 1,1ģ ƒ 7,7ÅĄƒ 5,3ËĒ€dd† A(4,3)n I ˛ 1 ¤ 4.x J ˛ 1 ¤ 3;‚‡ A(I,J)CŒ‚ JK–‚ I[  I ˛ 1 ¤ 4kĒ J ˛ 1 ¤ 3y´™ A(I,J);ž‚ J‡șŌ™•܂ IĄæƒ 1,3,1­đƒ 4,2,5šúƒ 1,4,2Ń 3,2,5Ë€d d† G(50)(n™ "HOW MANY STUDENTS";0x… N6‚™NŒ™ "STUDENT","GRADE"T–™d  I ˛ 1 ¤ NmĒ™ I,x´… G(I)€ž‚ IŠČS ˛ 0šŌ I ˛ 1 ¤ NŠÜS ˛ SĒG(I)ąæ‚ Iˇđ™ÃúM ˛ S­NŪ™ "CLASS AVERAGE IS";MëH ˛ G(1)øL ˛ G(1)" I ˛ 2 ¤ N,‹ L ŗ G(I) § 320*6L ˛ G(I)?@‹ H ą G(I) § 340LJH ˛ G(I)TT‚ Io^™ "HIGHEST GRADE IS";H‰h™ "LOWEST GRADE IS";Lr€$d† G(5,10)3nƒ 92,71,81,52,75,97,99,63,41,75Wxƒ 85,63,79,49,71,91,93,58,52,71{‚ƒ 89,74,80,61,79,88,97,55,51,73ŸŒƒ 96,68,84,58,80,93,95,61,47,70Öƒ 82,72,82,63,73,92,93,68,56,74Ķ  R ˛ 1 ¤ 5äĒ C ˛ 1 ¤ 10ņ´‡ G(R,C)ųž‚ CȂ RŌ™ "STUDENT","COURSE AVE."%ܙ6æ C ˛ 1 ¤ 10@đS ˛ 0Pú R ˛ 1 ¤ 5aS ˛ SĒG(R,C)i‚ Ru™ C,S­5}"‚ Cƒ,™6™ "TEST","CLASS AVE."Ŗ@™ŗJ R ˛ 1 ¤ 5ŊTS ˛ 0Î^ C ˛ 1 ¤ 10ßhS ˛ SĒG(R,C)įr‚ Cô|™ R,S­10ü†‚ R€dd† A$(20)&n™ "HOW MANY WORDS";.x… N>‚ I ˛ 1 ¤ NJŒ… A$(I)R–‚ Id  I ˛ 1 ¤ NĢ1Ē‹ A$(IĒ1) ą˛ A$(I) § 220’´B$ ˛ A$(IĒ1)ĻžA$(IĒ1) ˛ A$(I)ĩČA$(I) ˛ B$ŋŌ‰ 160Į܂ IÍæ™Ũđ I ˛ 1 ¤ Néú™ A$(I)ņ‚ I÷€nd I ˛ 2 ¤ 19-n™ ŖI);"XX";Ŗ40ĢI);"XX"5x‚ I?‚‰ 100EŒ€$