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 |Ž1PRINT 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