1 line
11 KiB
Plaintext
1 line
11 KiB
Plaintext
10 CLS
|
|
20 DIM SCR(5000):DIM SCN(5000)
|
|
23 DIM WF%(256)
|
|
FOR I= 0 TO 127
|
|
WF%(I)=127
|
|
WF%(255-I)=-128
|
|
NEXT I
|
|
25 WAVE 0, WF%
|
|
|
|
30 SCORE = 0:NUM = 0:ITEM=0
|
|
31 PRINT"":PRINT"":PRINT" PLEASE LISTEN PATIENTLY TO THE TUNE"
|
|
32 PRINT" I LIKE TO WALK WITH RICKY"
|
|
33 PRINT" WHILE I LOAD THE PROGRAM."
|
|
|
|
|
|
200 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3
|
|
202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6
|
|
203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5
|
|
|
|
210 SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,6:SOUND 0,4:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1
|
|
211 SOUND AH,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND G,16:SOUND 0,5:SOUND G,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND G,4:SOUND 0,1
|
|
213 SOUND A,4:SOUND 0,1:SOUND CM,12:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,16
|
|
221 GOTO 300
|
|
|
|
230 SOUND F,10:SOUND 0,2:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,8:SOUND 0,2
|
|
235 SOUND F,6:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,8:SOUND 0,2:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,10
|
|
238 RETURN
|
|
|
|
250 SOUND G,10:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND C,5:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND CM,10
|
|
251 RETURN
|
|
|
|
270 SOUND CM,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND AH,3:SOUND 0,1:SOUND AH,3:SOUND 0,4
|
|
271 SOUND AH,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND A,3:SOUND 0,1:SOUND A,3
|
|
272 RETURN
|
|
|
|
300 CLS:LINE(25,25)-(460,50),,BF:LINE(30,30)-(455,45),30,BF:LINE(300,30)-(320,45),,BF
|
|
305 CALL MOVETO (325,42):PRINT "SCORE"
|
|
310 X=100:Y=110:N=1:GOSUB 330
|
|
312 X=100:Y=225:N=2:GOSUB 330
|
|
315 X=250:Y=162:N=0:GOSUB 330
|
|
317 X=400:Y=110:N=3:GOSUB 330
|
|
319 X=400:Y=225:N=4:GOSUB 330
|
|
|
|
322 GET (10,10)-(480,280),SCR
|
|
325 CLS
|
|
327 GOTO 350
|
|
330 LINE(X-50,Y-50)-(X+50,Y+50),,BF
|
|
333 CALL MOVETO (X-4,Y+35):PRINT N
|
|
335 RETURN
|
|
350 PRINT"":PRINT"":PRINT" IF YOUR NAME DOES NOT REGISTER, CLICK ON THE CURSOR."
|
|
351 PRINT"":INPUT" Please type in your name and press the ENTER key."; NOMEN$
|
|
352 IF NOMEN$="" THEN BEEP:CLS:GOTO 350
|
|
353 GOTO 500
|
|
|
|
400 CLS:PRINT"":PRINT"":GOSUB 230
|
|
401 PRINT" You now have three choices:"
|
|
403 PRINT""
|
|
404 PRINT,"1. QUIT"
|
|
405 PRINT,"2. START OVER"
|
|
406 PRINT,"3. CONTINUE"
|
|
407 PRINT"":PRINT" Press the number key of your choice."
|
|
410 W$ = ""
|
|
411 W$ = INKEY$
|
|
413 IF W$ = "1" THEN 950
|
|
414 IF W$ = "2" THEN RESTORE:SCORE=0:NUM=0: GOTO 500
|
|
415 IF W$ = "3" THEN 500
|
|
420 GOTO 410
|
|
425 CLS:PRINT"":PRINT""
|
|
430 PRINT" That is all the material there is. At this time then, you may:"
|
|
435 PRINT""
|
|
436 PRINT,"1. QUIT"
|
|
437 PRINT,"2. START OVER"
|
|
438 PRINT"":PRINT" Press the number key of your choice."
|
|
440 GOTO 410
|
|
|
|
500 CLS:READ L$,E1$,E2$,E3$,E4$,ANS
|
|
505 BOOP = 0
|
|
510 IF L$ = "CHOICE" THEN GOTO 400
|
|
511 IF L$ = "END" THEN GOTO 425
|
|
520 PUT (10,10),SCR
|
|
522 NUM = NUM +1
|
|
525 CALL MOVETO (35,42):PRINT NOMEN$" ITEMS: "NUM
|
|
527 CALL MOVETO (370,42):PRINT SCORE
|
|
528 CALL MOVETO(200,250):PRINT"TO QUIT, PRESS 9"
|
|
530 CALL MOVETO (210,160):PRINT L$
|
|
533 CALL MOVETO (60,108):PRINT E1$
|
|
535 CALL MOVETO (60,223):PRINT E2$
|
|
537 CALL MOVETO (360,108):PRINT E3$
|
|
539 CALL MOVETO (360,223):PRINT E4$
|
|
540 SCORE = SCORE +5
|
|
545 GET (10,10)-(480,300),SCN
|
|
550 A$ = ""
|
|
551 A$ = INKEY$
|
|
552 IF A$="9" THEN 950
|
|
555 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 560
|
|
556 GOTO 550
|
|
560 IF VAL(A$) = ANS THEN BOOP =BOOP +1:GOTO 600
|
|
562 SCORE = SCORE -2:SOUND CM,5:BOOP = -5
|
|
563 CALL MOVETO (20,290):PRINT "THAT IS NOT CORRECT, TRY AGAIN"
|
|
564 FOR DLAY = 1 TO 1000:NEXT DLAY:CLS:PUT (10,10), SCN
|
|
567 GOTO 550
|
|
|
|
600 CLS:GOSUB 250
|
|
605 PRINT"":PRINT""
|
|
606 PRINT" That is correct !
|
|
607 IF BOOP = 1 THEN 610 ELSE 615
|
|
610 PRINT" Very good."
|
|
611 LINE(250,100)-(350,200):LINE-(150,135):LINE-(350,135):LINE-(150,200):LINE-(250,100)
|
|
|
|
615 FOR DLAY = 1 TO 1000:NEXT DLAY
|
|
618 GOTO 500
|
|
|
|
950 CLS:GOSUB 270
|
|
951 PRINT"":PRINT""
|
|
955 PRINT" "NOMEN$" did "NUM" items "
|
|
956 PRINT""
|
|
957 PRINT" and attained a score of " SCORE
|
|
958 PRINT"":PERC = INT((SCORE/(NUM * 5))* 100)
|
|
959 PRINT " which is "PERC" %."
|
|
960 PRINT"":PRINT""
|
|
965 PRINT" You may go get the teacher to see this score and you might get"
|
|
966 PRINT" some points. When you have finished, press the RETURN key."
|
|
968 PRINT" Please close the disc and return it to the files."
|
|
970 INPUT V
|
|
980 END
|
|
|
|
|
|
1000 DATA INSULA,CITY,COUNTRY,ISLAND,ITALY,3,URBS,CITY,ISLAND,SICILY,HUT,1
|
|
1001 DATA JUXTA,ISLAND,NEXT TO,NEXT,CITY,2,COLIT,FARMER,CITY,GRAIN,TAKES CARE OF,4
|
|
1002 DATA HABET,HOE,HUT,HAS,HELPS,3,AGER,FARMER,HOE,FIELD,GRAIN,3
|
|
1004 DATA VIR,FARMER,HOE,MAN,IS,3,INDICAT,BIRDS,FIELD,BUT,POINTS TO,4
|
|
1005 DATA SED,SAID,BIRD,BUT,PROPHET,3,AGRICOLA,GRAIN,HOE,FARMER,AUGUR,3
|
|
1006 DATA CONDUNT,ARE SITTING,ARE STARTING,FIGHT,CHOOSE,2,ERIT,WILL BE,KING,START,POINT TO,1
|
|
1007 DATA QUIS,WHAT,WHEN,WHERE,WHO,4,REX,DOG,KING,PROPHET,HUT,2
|
|
1008 DATA FRATER,CART,HORSE,BROTHER,KING,3,PUGNANT,FIGHT,KILL,CHOOSE,START,1
|
|
1009 DATA LABORANT,WORK,FIGHT,CHOOSE,KILL,1,QUIA,WHO,BECAUSE,WHY,BEGIN,2
|
|
1010 DATA ROMANORUM,ROMAN,ROMANS',ROMAN'S,ROMEN,2,EXTRA,MORE,STILL,YET,OUTSIDE OF,4
|
|
1011 DATA COLUIT,TOOK CARE OF,LOST,FOUND,FIELDS,1,OLIM,ONCE,WAS,THERE,LOST,1
|
|
1012 DATA REGEM,KING,KING'S,DEAD,GONE,1,HI,HELLO,THESE,THAT,HIM,2
|
|
1013 DATA NUNC,NO,NEW,NOW,NOT,3,CHOICE,O,O,O,O,0,CONSULTAT,CONSUL,CONSULT,RULE,DECIDE,2
|
|
1014 DATA AMANT,LOVE,LIVE,FIND,DISCUSS,1,ADJUVANT,HELP,SEEK,FIND,START,1
|
|
1015 DATA BENE,WELL,BEEN,WAS,BEANS,1,OMNES,MEN,SOLDIERS,ALL,ARE,3
|
|
1016 DATA SUNT,ARE,SEEK,DECIDE,DISCUSS,1,LEGES,SOLDIERS,VOTERS,LAWS,PEOPLE,3
|
|
1017 DATA NUMQUAM,NO ONE,NOT,NEVER,NEITHER,3,OCCIDUNT,ACCIDENT,HURT,KILL,HAPPEN,3
|
|
1018 DATA PRO,FOR,PLAYER,SOLDIER,BECAUSE,1,MILITES,SOLDIER,SOLDIERS,ARMY,BATTLE,2
|
|
1019 DATA AGROS,SAILORS,BOATS,FIELDS,FIND,3,MULTI,MANY,SOLDIER,ARMY,BATTLE,1
|
|
1020 DATA EVOCANT,CALL UP,CALL TO,VOTE ON,DECIDE,1,DESIDERAT,DECIDE,WANT,CHOOSE,START,2
|
|
1021 DATA RESPONDUNT,ANSWER,SEND BACK,COME UP,RETURN,1,ESSE,DISCUSS,VOTE ON,TO BE,CHOOSE,3
|
|
1022 DATA LOQUANTUR,PUT,PLACE,DECIDE,TALK,4,SEDET,SAY,STAY,SIT,SAT,3
|
|
1023 DATA RESPONDEBUNT,WILL GO,WANTED,REPLIED,WILL ANSWER,4,SELLA,SELL,BUY,CHAIR,SELLER,3
|
|
1024 DATA VICTOR,MAN,COURAGE,WINNER,SOLDIER,3,DE,DAY,ABOUT,AWAY,DO,2
|
|
1025 DATA BELLUM,WAR,BELL,RING,BATTLE,1,CHARTA,MAP,TABLE,PLAN,DRAW,1,CHOICE,O,O,O,O,0
|
|
1026 DATA MENSA,MAP,MEN,TABLE,PLANS,3,BONUS,PAY,GOOD,BONE,PLANS,2
|
|
1027 DATA ETIAM,AND THEN,ALSO,VIRTUE,WHEN,2,VIRTUS,MEN,UP,REAL,VIRTUE,4
|
|
1028 DATA CUM,WHEN,COME,SAY,IS,1,ESSET,BE,SIT,ALSO,SAY,1
|
|
1029 DATA DICIT,DECIDE,THROW,SAY,PLAN,3,GERIT,RIDE,HORSE,WALK,FIGHT,1
|
|
1030 DATA EQUUS,HORSE,EQUAL,ADD UP,DECIDE,1,AMBULAT,HELP,WALK,CARRY,FIGHT,2
|
|
1031 DATA PUGNANT,FIGHT,RIDE,BATTLE,FLAG,1,PARS,PART,PAIR,PAIRS,GET READY,1
|
|
1032 DATA SIGNUM,STANDARD,NAME,LEGION,ARMY,1,DIXIT,DECIDED,SAID,SENT,CARRIED,2
|
|
1033 DATA RUS,RED,FARM,RUSH,TEACH,2,EXTRA,OUTSIDE OF,NEXT TO,MORE,AGAIN,1
|
|
1034 DATA TUGURIUM,HUT,HOE,TEACHER,STOOL,1,STAT,QUICKLY,PART,STANDS,HOE,3
|
|
1035 DATA DUX,HANDS,FISTS,LEADER,DICE,3,CONTRA,TROOPS,SUPPLIES,MONEY,AGAINST,4
|
|
1036 DATA ITERUM,JOURNEY,ROUTE,SUPPLIES,AGAIN,4,SEMPER,CRY,WIMPER,ALWAYS,PROOF,3
|
|
1037 DATA DUXIT,SAID,LED,LEAD,AGAIN,2,MAGNUS,MANY,BIG,BETTER,TROOPS,2
|
|
1038 DATA COPIAS,COPY,COPIES,TROOPS,SUPPLIES,4,CHOICE,O,O,O,O,0,OBTINUIT,GOT,KEPT,OBSTINATE,ROCK,1
|
|
1039 DATA GESSIT,JELLED,PUT ON,RODE,GUESSED,3,PROELIO,FINALLY,PRIZE,BATTLE,TROOPS,3
|
|
1040 DATA POSTREMO,PERHAPS,AGAINST,ALMOST,FINALLY,4,TRES,TRACE,THREE,TRY,THINGS,2
|
|
1041 DATA AD,TO,ON,PUT,GO,1,PORTANT,HEAVY,SERIOUS,CARRY,PORT,3
|
|
1042 DATA PONENT,PUT,FIGHT,OTHER,DOCK,1,ARMA,PICK UP, WEAPONS,CARRY,BOAT,2
|
|
1043 DATA CIBUM,SWORD,FOOD,SUPPLIES,CLOTHING,2,VESTITA,VESTMENTS,CLOTHES,MONEY,CRATES,2
|
|
1044 DATA REQUIRUNT,LOOK FOR,NEED,LOSE,SEND BACK,2,ERUNT,WERE,WILL BE,MISTAKEN,WENT,2
|
|
1045 DATA VENIT,BLOOD, BLEED,COMES,SEES,3,GUBERNATOR,PEANUT,FIREMAN,POLICEMAN,GOVERNOR,4
|
|
1046 DATA DAT,GIVES,THAT,DOT,POINTS,1,TERTIA,POINTS TO,DARES,THIRD,ROUTS,3
|
|
1047 DATA BARBARUS,BEARD,BARBARIAN,BARBER,WAGON,2,VINCERE,CONQUER,SEE,COME,FIND,1
|
|
1048 DATA GLORIA,LIGHT,GIRL,FIND,FAME,4,TRANS,CARRY,ACROSS,WENT,RIDE,2
|
|
1049 DATA VIDEMUS,WE SEE,COMING,ARRIVAL,CONQUER,1,EQUITATUS,HORSES,CAVALRY,DECIDE,MEETING,2
|
|
1050 DATA EXERCITATI,EXERCISES,TRAINED,EXCITED,KILLED,2,FORTITER,FORTY,BRAVELY,STRENGTH,FIND,2,CHOICE,O,O,O,O,0
|
|
1051 DATA POSSUNT,THEY CAN,SLEEP,DEAD,THEY ASK,1,NOVOS,NINE,NEW,NOW,PRIVATE,2
|
|
1052 DATA SAPIENS,WISE,HUMBLE,FOOLISH,LOSING,1,CIRCA,AROUND,CAMP,FISH,QUICKLY,1
|
|
1053 DATA CELERITER,CAMP,QUICKLY,RUN,CAPTURED,2,CAPTUS,CAPTURED,CAPTIVE,CAMP,HAT,1
|
|
1054 DATA PAX,PACE,FOOT,FACE,PEACE,4,AMO,I LOVE,WEAPONS,FRIEND,FIND,1
|
|
1055 DATA DEUS,DAY,YOUR,TWO,GOD,4,TE,THREE,YOU,TOO,SAY,2
|
|
1056 DATA AMAMUS,WE LOVE,THEY LOVE,YOU LOVE,SHE LOVES,1,NOS,NOT,US,NINE,HIM,2
|
|
1057 DATA VOS,VOICE,CRY,SHOUT,YOU,4,VIDET,COMES,CONQUERS,SEES,KILLS,3
|
|
1058 DATA LAUDANT,PRAISE,PRAYS,LOUD,SHOUTS,1,MALUM,MAN,EVIL,HAMMER,SHIELD,2
|
|
1059 DATA POTISSIMUM,POTS,POWERFUL,ESPECIALLY,DAILY,3,PAUCI,PEACE,PIECE,FEW,SMALL,3
|
|
1060 DATA HUIUS,WHOSE,OF THESE,THEIR,HIS,2,SENEX,SENATOR,OLD MAN,TEACHER,FARMER,2
|
|
1061 DATA PUER,POOR,BOY,STUDENT,HUT,2,MILES,MILES,MILE,SOLDIER,ARMY,3
|
|
1062 DATA VENERUNT,CAME,SAW,CONQUERED,LED,1,HABUIT,HAD,GOT,ABOUT,SAID,1
|
|
1063 DATA HISTORIA,STORE,STORY,LAUGHTER,CRAZY,2,CHOICE,O,O,O,O,0,DUXIT,LED,LOST,SAID,FOUND,1
|
|
1064 DATA MORIEBANTUR,DIED,WENT AWAY, KILLED,DISCUSSED,1,AQUAM,BLUE,WATER,RIVER,SEA,2
|
|
1065 DATA RORAVIT,RAINED,ROARED,CHASED,CHOSE,1,CAELO,SKY,BLUE,JELLO,YELLOW,1
|
|
1066 DATA POSSUNT,COULD,DIED,CHASED,FORMED,1,FIEBAT,FLAT,RAN AWAY,CAME DOWN,BECAME,4
|
|
1067 DATA GRANDO,HAIL,BIG,RIVER,SAINT,1,FUGIT,RAN AWAY,SHOUTED,KILLED,CAME DOWN,1
|
|
1068 DATA AGRICOLAS,FARMER,FARMERS,FARMER'S,FARMERS',2,NAUTA,NOTHING,SAILOR,BOAT,CARRY,2
|
|
1069 DATA PECUNIA,MONEY,STRANGE,PIGS,BEAK,1,PUELLA,GIRL,GIRLS,GIRL'S,GIRLS',1
|
|
1070 DATA TURBA,FAN,CROWD,NOISE,MOTOR,2,AUDIT,HEAR,CHECK,FIND,LOOK AT,1
|
|
1071 DATA PANES,PAINS,PANS,HANDS,BREAD,4,SEPTEM,NOSE,MONTH,SEVEN,SPEAR,3
|
|
1072 DATA DATE,GIVE,DAY,FIG,TIME,1,EDIT,ATE,CHECKED,WROTE,STABBED,1
|
|
1073 DATA SATIS,ENOUGH,YOU SIT,SMART,GAVE,1,TUNC,THEM,THEN,THERE,THESE,2
|
|
1074 DATA PROXIMUS,NEIGHBOR,STAND IN,SOLDIER,ALMOST,1,LATRONES,TOILETS,ROBBERS,GARDENERS,VINEYARDS,2
|
|
1075 DATA FERE,CARRY,FARE,BOAT,ALMOST,4,SACERDOS,BALL,KICK,PLAY,PRIEST,4,CHOICE,O,O,O,O,0
|
|
1076 DATA PREHENDIT,TOOK,CHASE,FIND,LOOK FOR,1,DEDIT,DIED,DECIDE,GAVE,START,3
|
|
1077 DATA ADJUVANDUM,HELP,YOUNGSTER,SPEAR,SHIELD,1,QUIS,WHO,WHAT,WHEN,WHERE,1
|
|
1078 DATA SIMILITER,SIMPLE,SIMILAR,LIKEWISE,20 INCHES,3,SANCTUS,SAINT,SENT,GRACE,FAVOR,1
|
|
1079 DATA VIXIT,FIXED,CHOSE,LIVED,CONQUERED,3,HAC,THIS,HIGH,WHICH,PLACE,1
|
|
1080 DATA EPISCOPUS,BISHOP,BINOCULARS,GLASS,HORSEMAN,1,BESTIA,GOOD,BEST,BEAST,BET,3
|
|
1081 DATA NUNC,NONCE,NOW,NEVER,ONCE,2,APPARUIT,DIVIDED OFF,APPEARED,SEEMED,PREPARED,2
|
|
1082 DATA CRUX,CROSS,IMPORTANT,AN 'X',SIGNATURE,1,VINCES,WILL CONQUER,WEAK,SAW,ARRIVED,1
|
|
1083 DATA PONTIS,GOVERNOR,BRIDGE,SADDLE,BOOT,2,POST,PLACE,STATION,AFTER,FOR,3
|
|
1084 DATA VERBI,ACTIONS,SPEAK,LOUDER,WORDS,4,IMPERATOR,COMMAND,EMPEROR,EMPIRE,SENTENCE,2
|
|
|
|
1999 DATA END,O,O,O,O,0
|