C64S tape image fileHANDS ON BASIC ]HANDS ON BASIC 8]5DA1 J•5DA14 ß5DA18  ü5DA23 Ąœ5DA25 ;= 5DA26 Mx 5DA30 nÅ 5EX1 Z3 5EX2 ΍ 5EX3 °[ 5EX4 : 6DA1 EE 6DA4 ąŠ 6DA7 Ā; 6DA11 hû 6DA14 <c6EX1 Ÿ6EX2 †š6EX3  ?6EX4  ™"“"+A$(0)˛"HANDS ON BASIC"BA$(1)˛"WITH A PET"fA$(4)˛"COPYRIGHT 1979, PECKHAM"ƒA$(2)˛"FOR USE WITH THE"A$(3)˛"COMMODORE PET"ÍA$(5)˛"LICENSED BY COMMODORE INTERNATIONAL"؁I˛0¤5î(X˛(40ĢÃ(A$(I)))­22™ŖX)A$(I):‹Ią0¯(ĩ(I­2)Ŧ2ŗąI)§™""<‚+FI˛1¤1500:‚JP™"“";:I˛1¤38:™"ŋ";:‚:™"ŋ"sZI˛1¤23:™"ŋ";:J˛1¤37:™" ";:‚:™"ŋ":‚‡dI˛1¤39:™"ŋ";:‚“i™""žn‡C$,A$Žs‹C$˛"˙"§500ÁxX˛(40ĢÃ(A$))­2΂™ŖX)C$A$׌‰110$–ƒ""," THIS COURSE IS DESIGNED TO BE","","USED WITH THE 'HANDS ON BASICq ƒ"","WITH A PET' TEXT BY HERBERT PECKHAM.","","THE PROGRAMS ARE NAMED "˛Ēƒ"","ACCORDING TO THE CHAPTER","","AND EXERCISE NUMBER USED"´ƒ"","IN THE TEXT. FOR EXAMPLE","","CHAPTER 8, ACTIVITY 12","","IS CALLED"Džƒ "","8DA12","","AND WOULD BE LOADED WITH THAT NAME","˙",""[ôI˛1¤5000:‚:™"“":€ d… An… Bx… C'‚D ˛ AĒBĒC/Œ™ D5–€$ d‡ A,BnC ˛ A­Bx™ C)‚‰ 100AŒƒ 2,1,6,2,90,9,35,7G–€x dA ˛ 10n™ Ax€d!d METRIC CONVERSION PROGRAM<n CONVERT LBS TO GRAMSWx™ "INPUT NO. OF LBS.";_‚… PmŒG ˛ 454ŦP–™ P;" POUNDS IS ";G;"GRAMS"— ‰ 120Ē€_!d METRIC CONVERSION PROGRAM<n CONVERT LBS TO GRAMSWx™ "INPUT NO. OF LBS.";_‚… P€Œ™ P;" POUNDS IS ";G;" GRAMS"Ž–G ˛ 454ŦP˜ ‰ 120žĒ€d d‡ An™ Ax‰ 1002‚ƒ 10,12,9,73,60,828Œ€d dA ˛ 10n‡ B!x™ ŖA);B;.‚A ˛ AĒ108Œ‰ 110D–ƒ 1,2,3J €dd™ "TOTAL PRICE ";n… T8x™ "HOW MANY ITEMS ";@‚… NLŒU ˛ T­Ne–™ "UNIT PRICE IS ";Uk €dd™ "HOW MANY DEG. F"!n… F6xC ˛ (5­9)Ŧ(FĢ32)Q‚™ "THAT'S";C;" DEG. C"WŒ€dd™ "PRINCIPAL ($) = ";#n… P=x™ "INT. RATE (%) = ";E‚… I^Œ™ "TERM (YEARS) = ";f–… Nw X ˛ PŦI­1200‘ĒY ˛ (1ĒI­1200)Ž(12ŦN)Ŗ´M ˛ X­(1Ģ1­Y)Åž™ "MONTHLY PAYMENTS ($) = ";MËȀdd™" ĻĻ)n™" ĻĻ=x™" ĻĻT‚™" ĻĻĻĻĻĻĻĻkŒ™" ĻĻĻĻĻĻĻĻ–™" ĻĻ“ ™" ĻĻ§Ē™" ĻĻ­´€d dX ˛ 1n™ XxX ˛ XĒ11‚‹ X ŗ 5 § 1107Œ€$ dX ˛ 1n™ XxX ˛ XĒ12‚‹ X ą˛ 5 § 140<‡‰ 110BŒ€d"d™ "INPUT EITHER 1, 2, OR 3";*n… Y<x‹ Y ˛ 1 ‰ 150N‚‹ Y ˛ 2 ‰ 170`Œ‹ Y ˛ 3 ‰ 190n–™ "BLOOD"x ‰ 100†Ē™ "SWEAT"´‰ 100žž™ "TEARS"¨ȉ 100ŽŌ€ddA$ ˛ "BLACK "%nB$ ˛ "WHITE "4xC$ ˛ "CAT"C‚D$ ˛ "DOG"KŒ… Xe–‘ X ‰ 160,180,200,220n ™ C$xĒ‰ 140´™ D$‹ž‰ 140—ș A$ĒC$ĄŌ‰ 140­ܙ B$ĒD$ˇæ‰ 140Ŋđ€d d… A$n… B$'x‹ A$ ŗ B$ ‰ 1603‚™ B$,A$9Œ™C–‰ 100O ™ A$,B$UĒ™_´‰ 100ež€d dX ˛ 2n™ X, xX ˛ XĒ13‚‹ X ŗ˛ 9 § 1109Œ€dd™ "INPUT AUTO HP"; n… P4x‹ P ŗ˛ 50 § 170I‚‹ P ŗ˛ 100 § 190^Œ‹ P ŗ˛ 200 § 210s–‹ P ŗ˛ 300 § 230‡ ‹ P ą 300 § 250‘ĒF ˛ 0›´‰ 260ĻžF ˛ 30°ȉ 260ģŌF ˛ 70Å܉ 260ŅæF ˛ 150Ûđ‰ 260įúF ˛ 500™ "LICENSE FEE IS ";F™‰ 100"€d dS ˛ 0nN ˛ 0x‡ X2‚‹ X ˛ 9999 § 170>ŒS ˛ SĒXJ–N ˛ NĒ1T ‰ 120`ĒA ˛ S­Nh´™ A}žƒ 4,2,3,6,5,9999ƒȀdd™ "AMOUNT OF MORTGAGE";%n… P<x‹ P ŗ˛ 50000 § 150T‚™ "NO LOAN ALLOWED"^Œ‰ 230u–‹ P ą˛ 35000 § 190Œ ‹ P ą˛ 25000 § 210šĒD ˛ .05ŦP¤´‰ 220ËžD˛.05Ŧ25000Ē.1Ŧ10000Ē.15Ŧ(PĢ35000)čŌD˛.05Ŧ25000Ē.1Ŧ(PĢ25000)ܙ "DOWN PAYMENT IS";Dæ€d