C64S tape image fileHANDS ON BASIC 3 B9DA1 bB9DA5 c¤9DA11 h9DA15 ³o9EX1 R"9EX2 t 9EX3 .u 10DA1 ½£ 10DA4 2` 10DA6 †’ 10EX1 @10EX2 ÞX10EX3 610EX4 $R10EX5 d– ¥A(X)²5¬Xª4nX ² 2+xY ² 5¬Xª49‚™ Y,¥A(2)?Œ€dd– ¥A(X) ² X®2%n– ¥B(X) ² 3¬X7x– ¥C(X) ² Xª2A‚X ² 1YŒ™ ¥A(X),¥B(X),¥C(X)_–€d d™ "A";n� 200!x™ "B";+‚� 3006Œ™ "C";<–�EÈ™ 1;KÒŽT,™ 2;Z6Ž`�€dd� SUBR. DEMOn† X(4)7x‡ X(1),X(2),X(3),X(4)B‚� SORTLŒ� 300X–� PRINTb � 400nªX(3)² 7y´� SORTƒ¾� 300�È� PRINT™Ò� 400ŸÜ�°,� SORT SUBR.À6� I ² 1 ¤ 3Ú@‹ X(Iª1) ± X(I) § 370éJC ² X(Iª1)ûTX(Iª1) ² X(I)^X(I) ² Ch‰ 310r‚ I |Ž1��PRINT SUBR.Kš™ X(1),X(2),X(3),X(4)Q¤Ž_ôƒ 2,1,5,6eX€dd– ¥R(X) ² µ(X¬100ª.5)­1004n™ "LABEL PRICE";<x… Z]‚™ "10% DISCOUNT IS";¥R(.9¬Z)Œ™ "15% DISCOUNT IS";¥R(.85¬Z) –™ "20% DISCOUNT IS";¥R(.8¬Z)ª ‰ 100°ª€dd– ¥R(X) ² µ(X¬100ª.5)­1007n™ "HOW MANY ROOMS";?x… N]‚™ "FOR EACH ROOM,TYPE IN"~Œ™ "LENGTH AND WIDTH IN FEET"›–™ "SEPARATED BY A COMMA"¡ ™»ª™ "ROOM","DIMENSIONS"Á´™Ë¾A ² 0ÛÈ� I ² 1 ¤ NäÒ™ I,îÜ… L,WüæA ² AªL¬Wð‚ IúA ² A­9.™ ¥R(A);"SQ YDS REQUIRED"@ƒ 10,8.5,7.25Tƒ 13.25,12,9.75f"ƒ 16,14,11.25z,ƒ 20,17.2,15.25€6™¢@™ "CARPET GRADE","ORDER COST"¨J™ÈT� COMPUTE PRICE FOR GRADE AÒ^� 800ãh™ "A",,¥R(P)r� COMPUTE PRICE FOR GRADE B |� 800†™ "B",,¥R(P)>�� COMPUTE PRICE FOR GRADE CHš� 800Y¤™ "C",,¥R(P)y®� COMPUTE PRICE FOR GRADE Dƒ¸� 800”™ "D",,¥R(P)šÌ�· � SUBR. FOR CARPET PRICEÆ*‡ C1,C2,C3Ù4‹ A ± 25 § 860ì>‹ A ± 15 § 880ùHP ² C1¬AR‰ 890!\P ² 15¬C1ª10¬C2ª(A«25)¬C3+f‰ 890CpP ² 15¬C1ª(A«15)¬C2IzŽO„€dd� SET UP FOR TIC TAC TOE5n� CLEAR THE SCREEN?x™ "“"J‚L ² 17TŒR ² 6_–C ² 11i � 400sª� 600~´C ² 17ˆ¾� 400’È� 600œÒC ² 6§ÜR ² 11²æL ² 18¼ð� 400Æú� 500ÑR ² 17Û� 400å� 500ë"��� POSITION CURSOR AT R,Cš� I ² 1 ¤ R#¤™ "";+®‚ I;¸� J ² 1 ¤ CF™ "";NÌ‚ JTÖŽmô� DRAW HORIZ LINE(L)}þ� K ² 1 ¤ Lˆ™ "¦";�‚ Kš™ "" &޹X� DRAW VERT LINE (L)Éb� K ² 1 ¤ LÔl™ "¦";àv™ "�";耂 KòŠ™ ""ø”Žþ„€dd� I ² 1 ¤ 10n™ »(1)%x‚ I+‚€$ dL ² .5nS ² .5)x� I ² 1 ¤ 1006‚X ² »(1)GŒ‹ X ± L§ 170Y–‹ X ³ S § 190c ‰ 200mªL ² Xw´‰ 200�¾S ² X‰È‚ IžÒ™ "LARGEST = ";L´Ü™ "SMALLEST = ";Sºæ€ d� I ² 1 ¤ 10"n™ µ(2¬»(1)))x‚I/‚€dd™ "TOSS","OUTCOME"n™/x� I ² 1 ¤ 10A‚X ² µ(2¬»(1))SŒ‹ X ² 0 § 170_–™ I,"T"i ‰ 180uª™ I,"H"}´‚ Iƒ¾€dd� I ² 1 ¤ 50'nY ² µ(6¬»(1))ª100x™ Y,7‚‚I=Œ€d d† B(50)n� I ² 1 ¤ 507xB(I) ² µ(365¬»(1))ª1?‚‚ IIŒF ² 0Z–� I ² 1 ¤ 49m � J ² Iª1 ¤ 50…ª‹ B(I) ³± B(J)§ 190‘´F ² Fª1™¾‚ J¡È‚ I¼Ò™ "NUMBER OF BIRTHDAY"ÕÜ™ "PAIRS FOUND IS";FÛæ€ddA$ ²"AEIOU"2nB$ ² "BCDFGHJKLMNPQRSTVWXYZ"<xX ² 1V‚– ¥V(X) ² µ(5¬»(X)ª1)qŒ– ¥C(X) ² µ(21¬»(X)ª1)‚–� I ² 1 ¤ 20™ C$ ² Ê(B$,¥C(X),1)³ªC$ ² C$ªÊ(A$,¥V(X),1)Í´C$ ² C$ªÊ(B$,¥C(X),1)ç¾C$ ² C$ªÊ(A$,¥V(X),1)ÈC$ ² C$ªÊ(B$,¥C(X),1) Ò™ C$,Ü‚ Iæ€d dX ² 1&n– ¥A(X) ² µ(25¬»(X)ª1)Ax– ¥B(X) ² µ(40¬»(X)ª1)]‚– ¥C(X) ² µ(250¬»(X)ª1)gŒ™ ""u–R ² ¥A(X)ƒ C ² ¥B(X)�ª� 400›´N ² ¥C(X)§¾™ Ç(N);±ȉ 140Ï�� SUBR TO POSITION CURSORßš� I ² 1 ¤ Rꤙ "";ò®‚ I¸� J ² 1 ¤ C ™ "";Ì‚ JÖŽ!„€d