C64S tape image fileSUPER SPELL 2HANGMAN JOTTO'STORY PROB -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ ! ********* JOTTO *********A PUBLIC DOMAIN EDUCATIONALa SOFTWARE FOR COMMODORE-16~ AND COMMODORE PLUS/4 AUTHOR: JIM BUTTERFIELD 970 (14)"" 800904:400:1000I07:1375I,FK(I)::"BYE!":#UR$"":UR$:UR$"Q"950 $&YUT$" OTTO":UH1:UP0:UG$"NSTRUCTIONS":850" OTTO IS SIMILAR TO ASTERMIND."" NSTEAD OF PEGS OF DIFFERENT COLORS,"" HOWEVER, THE PLAYER IS ASKED TO"" DEDUCE THE LETTERS OF A FIVE LETTER" " WORD..835:850\" ACH GUESS IS FOLLOWED BY A"" HINT. HE COMPUTER WILL TELL HOW MANY"" JOTS THE GUESS MAKES - EACH JOT"" CORRESPONDS TO A CORRECT LETTER WHICH"" MAY OR MAY NOT BE IN THE CORRECT"G" POSITION IN YOUR GUESS. F YOU MAKE A"v" GUESS THAT ISN'T 5 LETTERS LONG, THE"" NUMBER OF JOTS IS 0 BY DEFAULT.":835:850" HE TRICK IS TO VARY YOUR" GUESSES SLIGHTLY, ONE FROM THE NEXT.(" OU ARE ALLOWED 30 GUESSES AT THET" WORD. F YOU ARE IMPATIENT, YOU CAN" SEE THE ANSWER BY ENTERING ????? FOR" YOUR GUESS." F AT ANY TIME YOU WANT TO RE-":" START THE PROGRAM, TYPE 'Q'."" OOD UCK !835:3 0,2:4,15,1:""(142);L%" "d&"  "'" ߚ C O M M O D O R E"(" "*"SOFTWARE"4"":R9$""5R9$"***********"6R9$"* JOTTO *"67R9$"***********"?9UI0f:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:C239,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "JUI$"Q"950M840RUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)JW" --------------------------------------"P\aaUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":UC$(155):UV1214:UW0UF196:UV2238UD$"":UP$" "< N$(50),Z(5),Y(5),AN$(50),AN(50)cI07:FK(I)(1375I):1375I,0:i2025,0: C16 SCREEN MODE(142)"DO YOU WISH TO RESTART THE GAME (Y/N)?";UR$:UR$""954UR$"Y"UR$"N"25954 ""UC$;:9LUT$" OTTO":UG$"":UH0[W MODIFIED BY ROBERT EGGLETONa BXBSF,IPCCZ,DBDIF,ESFBE,PGGBM HPSHF,IBUDI,DJWJM,KPMMZ,LBZBL SBKBI,MFWFM,NJNJD,BOOFY,QJQFS RVFTU,SJWFS,QSFTT,PUUFS,FWFOU XFBWF,FYUPM,NVTIZ,AFCSB,GJAAZ9 UIJDL,ESVOL,GMPPE,UJHFS,GBLFS] CPPUI,MZJOH,TRVBU,HBVAF,PXJOH  UISFF,TJHIU,BYMFT,HSVNQ,BSFOB RVBSU,DSFFQ,CFMDI,QSFTT,TQBSL SBEBS,SVSBM,TNFMM,GSPXO,ESJGU(N50- HC0 13502< J1N:N$(J):J FTTI#PTT1000:T11360/ZZ(T)GdG0:N$N$((1)N1)rUS$"?ABCDEFGHIJKLMNOPQRSTUVWXYZ":UL5(7);:""UPG:UG$"UESS": 8503000GG1:G503500" OUR WORD: ";:35:Z$UR$:AN$(G)UR$Z$"?????"3500=(Z$)5" OU MUST GUESS A 5-LETTER WORD!":835:1600MV0:H0:M0XJ15Z((Z$,J,1)):Y((N$,J,1))1:Y64Y90Z65Z90" HAT'S NOT A WORD!": 835:1600Z65Z69Z73Z79Z85Z89VV1ZYMM1Z(J)Z:Y(J)Y:JM51640*V0V5 2500]V0V5" HAT KIND OF A WORD IS THAT ?"q V0V5 2500 J15:YY(J) K15:YZ(K)HH1:Z(K)0:1580" K, J6""((H),2)" OT";:AN(G)H7H1"S";8"."; 835(@G301440MI I110:(7);:I:""J" 'D BETTER TELL YOU.. THE WORD WAS":"  ";T3505:1650h"  OU GOT IT IN ONLY";G;"GUESSES."r2000:835:UG$"":850wAL$US$:US$"YNH":UL1x" NOTHER WORD ";Z$:US$AL$.|R1:(Z$)89 1380h 850:" OPE YOU HAD FUN PLAYING JOTTO.":I1800:n IFUW=0THENRETURN UW0    PREVIOUS GUESSES G0 3080 A1G8:"" A11 A11 A2A1 GR " UESS #";A2;"WAS ";AN$(A2);" WITH";AN(A2);"OTS"a A2:""g q  ""w  " HE WORD WAS "; ZZ15:ZY((N$,ZZ,1))1 ZY64ZY90 (ZY);::".":1650! ******** HANGMAN ********@ PUBLIC DOMAIN SOFTWARE^ FOR THE COMMODORE-16| AND COMMODORE PLUS/4 AUTHOR: UNKNOWN950(14)""; 800 904: 100126:"BYE!":I07:1375I,FK(I)::#UR$"":IJ0:239,04$"";:X$:X$""36X%II1(US$):(US$,II,1)X$43k':(X$)1345t( 36+UR$UR$X$:X$;:IJIJ1:IJUL36-:II1100:: 0,2:4,15,1:""(142);%" "&"  ",'" ߚ C O M M O D O R E"@(" "a*"SOFTWARE"4"":R9$""5R9$"*************"6R9$"* HANGMAN *"7R9$"*************"9UI0:UI$:UI$" "UIUI1:UI150826 ;""(14);:4,15,4:\C239,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"sHUI$:UI$" "840yMRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\aUH0:"":)k(UD$,24);" ONE MOMENT PLEASE... ":8UC$(155)UD$"":UP$" " PR$(100)I07:FK(I)(1375I):1375I,0:2025,0:ER30(142)"DO YOU WISH TO RESTART THE GAME (Y/N)?";,UR$:UR$""954?UR$"Y"26:OUR$"N"25X954g""UC$;:L HANGMAN1 JULY1980Q HANGMAN WITH 5 WORD CATEGORIES (GOOD GRAPHICS)-V WORD DATA LOCATED AT LINE 1051 GROUPED/20 WORDS PER CATEGORY3[` 8K PET IF LINES 1-25 AND LINES 63333+ ARE REMOVED*****3.0 ROMSe AUTHOR UNKNOWN (CUE LIBRARY) ADAPTED BY HARRIET HUNGATEjUT$" ANGMAN ":UP0:UG$"AGE": XV1 1332B850:" OUR BEST FRIEND HAS BEEN ARRESTED"k" AND CHARGED WITH ARSON, TREASON"" ARMED ROBBERY AND PUBLIC DRUNKENESS"" CONSPIRACY, MAYHEM, IGNORANCE"" AND UGLINESS."" OWEVER, THE JUDGE, BEING A KIND"0" SORT, WILL LET YOUR FRIEND PLEA-"^" BARGAIN THE CHARGES DOWN TO UGLINESS"" PROVIDED HE/SHE HAS ONE FRIEND." 835:850 " Ӡ??"" O SAVE YOUR FRIEND'S LIFE, YOU"" MUST GUESS A LETTER. OU"'" HAVE A CHANCE TO GUESS THE WORD"S" WITH NO PENALTY FOR A WRONG GUESS."a835:850" UT !!!! ACH TIME YOU"#" GUESS AN LETTER, YOUR"(" FRIEND ADVANCES ONE STEP CLOSER TO")10);"!!!! !!!!"+*" OTE: F AT ANY TIME YOU WISH TO"V+" OR RESTART THE PROGRAM, JUST"u," HIT THE / KEY."~28353:4UP0:"":UT$" ANGMAN 7":UG$"AGE"7850:"HAT IS YOUR FIRST NAME ";:NM$9NM$(NM$" ",8)<UH1:850:"KAY, "NM$","CA" HEN YOU GUESS A CORRECT LETTER,"kF" YOU WILL BE ASKED IF YOU WOULD"K" LIKE TO TRY TO GUESS THE ENTIRE WORD."P" YPE YOUR RESPONSE AND FOLLOW THE"U" THE INSTRUCTIONS ACCORDINGLY."Z835:875d I1 8: HM$(I):,i I1 6: J1 4?n TD$(I,J)::asA$"":B$""x850:860:(14)" HOOSE ONE OF THESE CATEGORIES:"| ***CATAGORIES*** }CT$(1)"COMPUTERS":CT$(2)"SPORTS":CT$(3)"CARS":CT$(4)"NATIONS"8CT$(5)"POT POURRI"X A1 5:A;". ";CT$(A):" OUR CHOICE, "NM$". ";:US$"12345?":UL1:35:C(UR$) " ET ME THINK OF A WORD...":TTTI I0 (C1)20((1)20) WD$: TITT120 1450!LM$"":PR$"":LG$""3I1 (WD$)h (WD$,I,1)" " PR$(I)" ":PR$PR$" ": 1475PR$(I)"-":PR$PR$"-":""(14128)MN$(NM$,1) (MN$)95 NM$((MN$)128)(NM$,2)VP17:HP0:M02025,64: FIX C-16 SCREEN I1 16:"";:8 I18::HM$(I);:F I1 7b" ";::"";x"  """;34);" ˑ "; I1 23:" ";:" ";:4071,160"SECRET WORD ";CT$(C);"  I1 9 :"" :, 18);"LETTERS MISSED"G 18);""Y "";PR$o  I1 5:"";:} 16);LM$ 2025,0: UN-FIX C-16 SCREEN ""GUESS A LETTER ";:2185:G$C$" " ' (G$,2,1)" " 1610!,""!1 I1 20,!6 I2(I2) "";U!;"ONLY ONE LETTER, ";NM$;""f!@ J1 50:u!E I: 1570!JG$(G$,1)!O G$"A" G$"Z" 1645!T"": I1 20!Y I2(I2) "";!^"THAT'S NOT A LETTER!!" "c J1 50:"h I: 1570+"m I1 (LG$)F"r G$(LG$,I,1) 1660U"w I: 1690a"|""p" I1 20" I2(I2) "";""THAT LETTER WAS TRIED!!"" J1 50:" I: 1570"" "#F0: I1 (WD$))# G$(WD$,I,1) PR$(I)G$:F1/#@# F0 1910V#LG$LG$G$:PR$""i# I1 (WD$)~#PR$PR$PR$(I):#"";PR$#" "# I1 20# I2(I2) "";#"VERY GOOD,"NM$"!" $ J1 50:: $ PR$WD$ 1830F$"TRY FOR THE WORD? ";d$US$"YN?":UL1:35:C$UR$~$ (C$,1)"Y" 1570$"GUESS THE WORD(S): ":"";$2500:G$( C$,(WD$))$ G$WD$ 1830$" " % I1 20"%  I2(I2) "";F%" SORRY, "NM$" "Y% J1 50::w%" "%" "%! 1570%&"";%+ I1 10%0" "B$;%5" "B$;&:" YOU WON! "B$;*&?" "B$;B&D" "B$;P&I"";h&N" "B$;&S" "B$;&X" YOU WON! "B$;&]" "B$;&b" "B$;&g"";: 'l:" CARE FOR ANOTHER CHANCE TO SAVE A"('m" FRIEND "NM$"? ";3'q 2160V'v" "e'{ I1 20}' I2(I2) "";'"YOU'RE WRONG, "NM$"!"' J1 50::'LG$LG$G$:LM$LM$G$'"": I1 10:"":'18)LM$:MM1 ( M9 2045'( I1 2:VPVP1:"";>( J2 VP:"";:Q( VP1 "";b(HP1)"";p( J1 8(""HM$(J)"";( J:" ";: I(" "( I1 4:HPHP1:"";( J2 VP:"";:) VP1 "";)HP)"";,) J1 8J)" "HM$(J)"";::[) M8 1570j)"";HP);x) I1 8)" "HM$(I)"";:) 1570)"";34);) I1 6: J1 4)TD$(I,J)A$;:) "";:*"";34);* I1 16:" ";,* J3 8?*  A$HM$(J);:T*%"";:g** I1 1000:y*/" "A$;*4"R "A$;*9"I۪"A$;*>"Pݶ"A$;*C" ݒ"A$;*H" "A$;*M" "A$;*R" ";+W I1 1000:++XUT$" HANGMAN " :UP0:UG$"ANSWER"P+\850:"THE SECRET WORD WAS:";Z+aWD$+f"BETTER LUCK NEXT TIME, ";NM$;"!!!"+k"CARE TO WASTE ANOTHER FRIEND ? ";+p+u I1 32: WD$:+zUS$"YN?":UL1:35:C$UR$+C$"Y"1400,!,C$"": INPUT SUBROUTINEF,US$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"U,35:C$UR$[,n," "," "|," ߒ"," "," ","  ","  ","","Ƥ"," "," "," "--" "," "," "," "," "," "," "," "," "x-" "," "," "," "," "," "," "," "," "," "-" "- " WORD DATA FOR CATEGORY 1. CPU,CHIP,RAM,CORE,MEMORY,"DATA",TERMINAL,"FLOPPY DISC",CYCLES,LOOP]. INCREMENT,INPUT,LOGIC,OCTAL,SUBROUTINE,HEXADECIMAL,SUBSCRIPTz. OUTPUT,PERIPHERAL,BYTE. " WORD DATA FOR CATEGORY 2/ BASEBALL,FOOTBALL,BASKETBALL,SOCCER,RUGBY,HOCKEY,SKIING,"WATER POLO"Z/ VOLLEYBALL,BOXING,"TIDDLEY WINKS",CHESS,"JAI ALAI",SWIMMING,TRACK/$ " WORD DATA FOR CATEGORY 3/) "AUTO RACING",FENCING,ARCHERY,CYCLING,"MOUNTAIN CLIMBING"/0. PORSCHE,TOYOTA,VOLKSWAGEN,LINCOLN,PANTERA,LOTUS,TRIUMPH,CHEVROLETt03 DODGE,BMW,EDSEL,DATSUN,CONVERTIBLE,CADILLAC,CAPRI,"DUNE BUGGY"08 MUSTANG,JALOPY,FERRARI,RAMBLER0= " WORD DATA FOR CATEGORY 4.1B THAILAND,AMERICA,FRANCE,SPAIN,ENGLAND,GERMANY,RUSSIA,ITALY,GREECEp1G EGYPT,RHODESIA,CHILE,CHINA,JAPAN,INDIA,CANADA,MEXICO,UGANDA1L YUGOSLAVIA,GUAM1Q " WORD DATA FOR CATEGORY 52V PIZZA,TENSION,MAGISTRATE,"TALK SHOW",SCIENTIST,MAHOGANY,THING,FAULT[2[ DANGEROUS,EWES,SYLPH,QUAINT,LUG,BYE,MAIDEN,LAUGH,SPHINX}2` ERRONEOUSLY,EXAMPLE,QUININE2e 2 C$: