home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SIMPLE-SENTENCE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.1 KB  |  314 lines
  1. 1 PRINT"[147]"
  2. 2 POKE53280,0:POKE53281,0:POKE646,7
  3. 3 PRINTCHR$(14):GOTO 2500
  4. 5 RESTORE:PRINTCHR$(142)
  5. 15 GOTO80
  6. 20 LL=LL+5
  7. 25 FORII=1TO(25-LL)
  8. 26 IFLL=25THENGOTO40
  9. 30 READZ1$,Z2$:NEXT
  10. 40 GOSUB6200
  11. 45 FORII=1TOLL:READZ1$,Z2$:NEXT
  12. 50 RETURN
  13. 80 PRINT"[147]":POKE53281,0:POKE53280,0:POKE646,1
  14. 100 FORI=1024TO1063:POKEI,102:POKEI+54272,7:NEXT
  15. 110 FORI=1063TO1623STEP40:POKEI,102:POKEI+54272,7:NEXT
  16. 120 FORI=1623TO1584STEP-1:POKEI,102:POKEI+54272,7:NEXT
  17. 130 FORI=1584TO1024STEP-40:POKEI,102:POKEI+54272,7:NEXT
  18. 140 PRINTTAB(9)"[156]THE SIMPLE SENTENCE"
  19. 145 PRINTTAB(10)"[129]A BASIC TUTORIAL
  20. 147 [153][163]13)"SYSINCLUDING
  21. 150 PRINTTAB(9)"LESSONS AND QUIZES
  22. 151 [129]I[178]1065[164]1102:[151]I,102:[151]I[170]54272,8:[130]
  23. 152 [129]I[178]1102[164]1582[169]40:[151]I,102:[151]I[170]54272,8:[130]
  24. 153 [129]I[178]1582[164]1545[169][171]1:[151]I,102:[151]I[170]54272,8:[130]
  25. 154 [129]I[178]1545[164]1065[169][171]40:[151]I,102:[151]I[170]54272,8:[130]
  26. 155 [129]I[178]1112[164]1132:[151]I,100:[151]I[170]54272,1:[130]
  27. 156 [129]I[178]1172[164]1252[169]40:[151]I,103:[151]I[170]54272,1:[130]
  28. 157 [129]I[178]1292[164]1272[169][171]1:[151]I,99:[151]I[170]54272,1:[130]
  29. 158 [129]I[178]1232[164]1152[169][171]40:[151]I,101:[151]I[170]54272,1:[130]
  30. 160 [153][163]9)"SYS PLEASE PRESS RETURN "
  31. 165 [161]A$:[139]A$[178]""[167] 165
  32. 168 [139]A$[179][177][199](13)[167]165
  33. 170 [151]53272,23:[141] 3000
  34. 180 [153]"LOAD"
  35. 190 [153][163]5)"ONOPEN          CLRLESSON 1OPEN          "
  36. 200 [153]"CONT(null)BJECTIVES:"
  37. 205 [153]"CLR (null)HE STUDENT WILL BE ABLE TO..."
  38. 210 [153]"1)(null)OINT OUT THE DIFFERENCE BETWEEN A"
  39. 212 [153]"COMPLETE SENTENCE AND A FRAGMENT."
  40. 214 [153]"2)RIGHT$DENTIFY A SIMPLE SENTENCE WITH A"
  41. 216 [153]"COMPOUND SUBJECT OR COMPOUND PREDICATE."
  42. 220 [153]"3)RIGHT$DENTIFY THE FOUR BASIC SIMPLE
  43. 222 PRINT"SENTENCES: A)DECLARATIVE B)IMPERATIVE"
  44. 225 PRINT"C)EXCLAMATORY D)INTERROGATIVE"
  45. 230 PRINTTAB(9)"PRESS RETURN"
  46. 240 GETA$:IFA$=""THEN240
  47. 245 IFA$<>CHR$(13)THEN240
  48. 250 PRINT"[147]":PRINT"[154]LESSON CONTINUED"
  49. 260 PRINT"[196]EFINITION OF A SIMPLE SENTENCE."
  50. 270 PRINT"[129]A)[193] SIMPLE SENTENCE IS A GROUP OF WORDS";
  51. 275 PRINT" WHICH CONTAINS A SUBJECT AND A PREDICATE";
  52. 280 PRINT"AND WHICH EXPRESSES A COMPLETE[146] THOUGHT."
  53. 290 PRINT"B) [193] SIMPLE SENTENCE BEGINS WITH A ";
  54. 300 PRINT"     CAPITAL LETTER AND ENDS WITH A          PUNCTUATION ";
  55. 310 PRINT"MARK."
  56. 320 PRINT"[156]C)[193] SIMPLE SUBJECT (PERSON,PLACE OR     THING)";
  57. 325 PRINT" IS WHAT IS BEING DESCRIBED IN THESENTENCE."
  58. 330 PRINT"[158]D)[193] SIMPLE PREDICATE (VERB) IS WHAT SAYS";
  59. 335 PRINT"SOMETHING ABOUT THE SUBJECT."
  60. 340 PRINTTAB(11)"PRESS RETURN"
  61. 345 GETA$:IFA$=""THEN345
  62. 350 IFA$<>CHR$(13)THEN345
  63. 355 PRINT"[147]":PRINT"[145][153]LESSON CONTINUED "
  64. 360 PRINT"[159][200]ERE ARE EXAMPLES OF SIMPLE SENTENCES. ";
  65. 365 PRINT" [206]OTICE THAT THE SUBJECT IS EMPHASIZED IN ";
  66. 370 PRINT"BLUE[159], WHILE THE PREDICATE IS IN GREEN.[158]"
  67. 380 PRINT"1)[215]E[158] DROVE[158] TO TOWN."
  68. 390 PRINT"2)[200]E IS[158] THE MAN."
  69. 400 PRINT"3)[212]HE BIRDS FLY[158] SOUTH."
  70. 410 PRINT"4)[212]HEY WAITED[158] ON THE BRIDGE."
  71. 420 PRINT"5)[212]HE CLOCK TICKS[158] LOUDLY."
  72. 430 PRINT"6)[202]OHN ARRIVED[158] ON TIME."
  73. 440 PRINT"7)[201]S[158] YOUR FATHER[158] HERE?"
  74. 450 PRINT"8)[212]HAT SMALL CAR IS[158] MINE."
  75. 460 PRINTTAB(11)"PRESS RETURN"
  76. 470 GETA$:IFA$=""THEN470
  77. 480 IF A$<>CHR$(13)THEN470
  78. 490 PRINT"[147]":PRINTTAB(12)"[145] [209]UIZ 1 "
  79. 500 PRINT"[193]FTER EACH SENTENCE APPEARS,TYPE IN";
  80. 510 PRINT" THE SUBJECT AND PRESS RETURN."
  81. 520 GOSUB4000
  82. 530 PRINT"[147]":PRINTTAB(12)"[145]QUIZ 2"
  83. 540 PRINT"[156][201]NSTRUCTIONS:[193]FTER EACH SENTENCE APPEARS";
  84. 550 PRINT"TYPE IN THE PREDICATE (VERB).[158]"
  85. 560 GOSUB4000
  86. 570 PRINT"[147]":PRINTTAB(11)"[145]LESSON 2 "
  87. 580 PRINT"[158][212]HERE ARE FOUR MAIN TYPES OF SENTENCES."
  88. 590 PRINT"[156]1)[193] DECLARATIVE SENTENCE MAKES A STATE-"
  89. 600 PRINT"MENT."
  90. 610 PRINT"EXAMPLE: [215]E WENT TO THE STORE."
  91. 620 PRINT"[129]2)[193]N IMPERATIVE SENTENCE GIVES A"
  92. 625 PRINT"COMMAND."
  93. 630 PRINT"EXAMPLE: [208]LEASE SAY THAT AGAIN."
  94. 640 PRINT"3)[193]N INTERROGATIVE SENTENCE ASKS A"
  95. 645 PRINT"QUESTION."
  96. 650 PRINT"EXAMPLE: [196]O YOU KNOW HIM?"
  97. 660 PRINT"4)[193]N EXCLAMATORY SENTENCE EXPRESSES"
  98. 665 PRINT"STRONG FEELING."
  99. 670 PRINT"EXAMPLE: [201] WILL NEVER GO AGAIN!"
  100. 680 PRINTTAB(9)"[158]PLEASE PRESS RETURN "
  101. 690 GETA$:IFA$=""THEN690
  102. 700 IFA$<>CHR$(13)THEN690
  103. 710 PRINT"[147]":PRINTTAB(13)"[145]QUIZ 3 "
  104. 720 PRINT"[156][201]NSTRUCTIONS:[152][193]FTER EACH SENTENCE TYPE IN";
  105. 730 PRINT"THE APPROPRIATE NUMBER:"
  106. 740 PRINT"[129]1=IMPERATIVE    3=INTERROGATIVE"
  107. 750 PRINT"[156]2=DECLARATIVE   4=EXCLAMATORY[158]"
  108. 760 GOSUB4000
  109. 770 PRINT"[147]":PRINTTAB(12)"[145][150]LESSON 3 "
  110. 780 PRINT"[193] CONJUNCTION IS A PART OF SPEECH";
  111. 790 PRINT" WHICH CONNECTS (JOINS) WORDS OR GROUPS OF";
  112. 800 PRINT"     WORDS."
  113. 810 PRINT"[158][212]HE MOST COMMON ONES ARE AND,BUT,OR,";
  114. 820 PRINT"NOR,EITHER AND NEITHER."
  115. 830 PRINT"[193] COMPOUND SUBJECT CONSISTS OF TWO OR";
  116. 840 PRINT"   MORE CONNECTED NOUNS."
  117. 850 PRINT"EXAMPLE:[202]OHN AND [205]ARY"
  118. 860 PRINT"[193] COMPOUND PREDICATE (VERB) CONSISTS OF";
  119. 870 PRINT" TWO OR MORE CONNECTED VERBS."
  120. 880 PRINT"[158]EXAMPLE:SKIPPED AND HOPPED"
  121. 890 PRINT"[151][193] SIMPLE SENTENCE MAY HAVE BOTH A";
  122. 900 PRINT" COM-  POUND SUBJECT AND A COMPOUND PREDICATE."
  123. 910 PRINTTAB(11)"[158]PRESS RETURN "
  124. 915 GETA$:IFA$=""THEN915
  125. 920 IFA$<>CHR$(13)THEN915
  126. 930 PRINT"[147]":PRINTTAB(12)"[145]  QUIZ 4 "
  127. 940 PRINT"[201]NSTRUCTIONS:[152][193]FTER EACH SENTENCE APPEARS";
  128. 945 PRINT"ENTER THE APPROPRIATE NUMBER:"
  129. 946 PRINT"[129]1)COMPOUND SUBJECT [156]2)COMPOUND PREDICATE";
  130. 947 PRINT" 3)COMPOUND SUBJECT/COMPOUND PREDICATE[153]"
  131. 950 PRINT:GOSUB4000
  132. 960 PRINT"[147]":PRINTTAB(12)"[145][156]LESSON 5 "
  133. 970 PRINT"[193] SENTENCE FRAGMENT IS NOT A COMPLETE   ";
  134. 975 PRINT"SENTENCE BECAUSE IT LACKS EITHER A      SUBJECT,";
  135. 980 PRINT"A PREDICATE, OR BOTH."
  136. 990 PRINT"[211]TUDY THE FOLLOWING FRAGMENTS:"
  137. 1000 PRINT"1)FOUND THEIR HOUSE."
  138. 1010 PRINT"2)MY FRIEND [194]ILL AND [201]."
  139. 1020 PRINT"3)THE OTHER DAY.."
  140. 1030 PRINT"4)RAN TO THE STORE QUICKLY.."
  141. 1040 PRINT"5)THE MAN WHO CAME TODAY.."
  142. 1050 PRINT"[158][197]ACH SENTENCE PART IS LACKING A VITAL ";
  143. 1060 PRINT"  ELEMENT. [195]AN YOU SEE WHAT IS MISSING?"
  144. 1070 PRINT"PRESS SPACE BAR TO SEE WHAT IS MISSING"
  145. 1080 GETA$:IFA$=""THEN1080
  146. 1090 IFA$<>CHR$(32)THEN1080
  147. 1100 PRINT"":PRINTTAB(25)"(SUBJECT)" :FORT=1TO1000:NEXT
  148. 1110 PRINTTAB(25)"(PREDICATE)":FORT=1TO1000:NEXT
  149. 1120 PRINTTAB(17)"(SUBJECT AND PREDICATE)":FORT=1TO1000:NEXT
  150. 1130 PRINTTAB(27)"(SUBJECT)":FORT=1TO1000:NEXT
  151. 1140 PRINTTAB(26)"(PREDICATE)" :FORT=1TO2000:NEXT
  152. 1150 PRINT"[158]            PRESS RETURN               "
  153. 1152 FORW=1TO200:NEXTW
  154. 1153 PRINT"            PRESS RETURN               ";
  155. 1155 FORW=1TO200:NEXTW
  156. 1160 GETA$:IFA$=""THEN1150
  157. 1180 IFA$<>CHR$(13)THEN1150
  158. 1190 PRINT"[147]":PRINTTAB(12)"[145][153]QUIZ 5 "
  159. 1200 PRINT"[201]NSTRUCTIONS:[152][195]HOOSE THE CORRECT LETTER";
  160. 1210 PRINT"  OF THE MISSING ELEMENT.
  161. 1220 [153]"A)SUBJECT"
  162. 1230 [153]"B)PREDICATE ";
  163. 1240 [153]"C)SUBJECT AND PREDICATE"
  164. 1250 [141]4000
  165. 1260 [153]"LOAD":[153]"SYS(null)HANK YOU ";N$;" FOR USING THIS LESSON."
  166. 1270 [153]"(null)OUR SCORE IS ";P
  167. 1280 [153]"PEEKREAKDOWN:"
  168. 1285 [153]"24-25 = EXCELLENT
  169. 1290 PRINT"21-23 = VERY GOOD
  170. 1295 [153]"19-20 = GOOD
  171. 1300 PRINT"17-18 = OKAY
  172. 1400 [153]"BELOW 17 INDICATES REVISIONWAIT REQUIRED!"
  173. 1410 [153][163]9)"PRESS RETURN FOR OPTIONS"
  174. 1420 [161]A$:[139]A$[178]""[167]1420
  175. 1430 [139]A$[179][177][199](13)[167]1420
  176. 1440 [153]"LOAD":[153][163]13)"ON(null)PTIONS "
  177. 1450 [153]"(null)=RUN THE PROGRAM AGAIN"
  178. 1455 [153]"ATN=ASSIGNMENT"
  179. 1460 [153]"(null)=QUIT THE PROGRAM"
  180. 1470 [153]:[153]"LENHOICE";:[133]A$:[139]A$[179][177]"R"[175]A$[179][177]"Q"[175]A$[179][177]"A"[167][137]1470
  181. 1480 [139]A$[178]"R"[167]:[137]5
  182. 1485 [139]A$[178]"A"[167][137]2900
  183. 1490 [139]A$[178]"Q"[167][153]"(null)HANK YOU ";N$;" FOR USING THIS PROGRAM."
  184. 1500 [153]"CLR(null)O LOAD (null)HE LENOMPOUND (null)ENTENCE, JUST TYPE";
  185. 1505 [153]"NEW, PUSH RETURN AND LOAD THE COMPOUND  SENTENCE.
  186. 1510 END
  187. 1999 STOP
  188. 2000 REM ** RESPONSE SUBROUTINE**
  189. 2010 INPUTR$:IFR$<>S$THENPRINT"[215]RONG.[195]ORRECT ANSWER IS ";S$:GOSUB6100:RETURN
  190. 2020 IFR$=S$THENPRINT"[195]ORRECT!":P=P+1:GOSUB6000:RETURN
  191. 2500 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,7
  192. 2510 FORI=1304TO1343:POKEI,102:POKEI+54272,4:NEXT
  193. 2520 FORI=1343TO1743STEP40:POKEI,102:POKEI+54272,4:NEXT
  194. 2530 FORI=1743TO1704STEP-1:POKEI,102:POKEI+54272,4:NEXT
  195. 2540 FORI=1704TO1304STEP-40:POKEI,102:POKEI+54272,4:NEXT
  196. 2550 PRINTTAB(8)"[198]1=[211]TUDENT [201]NSTRUCTIONS"
  197. 2560 PRINTTAB(8)"[198]3=[212]EACHER [201]NSTRUCTIONS"
  198. 2570 PRINTTAB(8)"[198]5=[195]OMPOUND [212]UTORIAL"
  199. 2580 PRINTTAB(5)"[152][201]S SOUND TURNED ON?"
  200. 2585 GETA$:IFA$=""THEN2585
  201. 2587 IFA$<>"[133]"ANDA$<>"[134]"ANDA$<>"[135]"THEN2585
  202. 2590 IFA$="[133]"THENGOTO2700
  203. 2595 IFA$="[134]"THENGOTO2800
  204. 2600 IFA$="[135]"THENGOTO5
  205. 2610 PRINTTAB(6)" PRESS RETURN TO CONTINUE "
  206. 2615 GETA$:IFA$=""THEN2615
  207. 2620 IFA$<>CHR$(13)THEN2615
  208. 2625 RETURN
  209. 2700 PRINT"[147][145]"TAB(8)" [211]TUDENT [201]NSTRUCTIONS "
  210. 2705 PRINT"[152]       [212]HIS  PROGRAM  IS BASICALLY SELF EXPLANATORY.";
  211. 2710 PRINT"  [212]HERE  IS  ONE  THING THE STUDENT SHOULD KNOW, AND THAT ";
  212. 2715 PRINT"IS  THAT  WHEN CALLED UPON TO TYPE A RESPONSE FROMA SENTENCE,";
  213. 2720 PRINT" THE STUDENT MUST TYPE THE   WORD EXACTLY AS IT APPEARS IN ";
  214. 2725 PRINT"THE SEN-  TENCE."
  215. 2730 PRINTTAB(12)"[158] PRESS RETURN "
  216. 2735 GETA$:IFA$=""THEN2735
  217. 2740 GOTO5
  218. 2800 PRINT"[147][145]"TAB(8)"[129] [212]EACHER [201]NSTRUCTIONS "
  219. 2805 PRINT"[152][212]HE SENTENCES IN THIS TUTORIAL MAY BE   ALTERED ";
  220. 2810 PRINT"SIMPLY BY CHANGING THE DATA     STATEMENTS AT THE END OF THE ";
  221. 2815 PRINT"PROGRAM."
  222. 2820 PRINT"[154][212]HE LESSON INCLUDES AN OPTIONAL ASSIGN- MENT AT ";
  223. 2825 PRINT"THE END."
  224. 2830 PRINT"[159][212]HIS PROGRAM IS DESIGNED FOR THE COLOR  MONITOR."
  225. 2840 PRINTTAB(11)"[158] PRESS RETURN "
  226. 2845 GETA$:IFA$=""THEN2845
  227. 2850 IFA$<>CHR$(13)THEN2845
  228. 2855 GOTO5
  229. 2900 PRINT"[147][145]"TAB(11)" [193]SSIGNMENT "
  230. 2910 PRINT"[152][195]HOOSE ONE OF THE FOLLOWING:"
  231. 2915 PRINTTAB(3)"[156]1) [195]OPY FROM A MAGAZINE OR NEWSPAPER FIVE SIMPLE ";
  232. 2920 PRINT"SENTENCES  WITH  COMPOUND   SUBJECTS AND FIVE SIMPLE SENTENCES ";
  233. 2925 PRINT"WITH COMPOUND PREDICATES. ";
  234. 2930 PRINT" UNDERLINE  THE    SUBJECTS ONCE AND THE PREDICATES TWICE."
  235. 2940 PRINTTAB(3)"[153]2)[195]REATE TEN SIMPLE SENTENCES, FIVE  WITH COMPOUND ";
  236. 2945 PRINT"PREDICATES AND FIVE WITH  COMPOUND SUBJECTS.";
  237. 2950 PRINT"UNDERLINE THE SUBJECTSONCE AND THE PREDICATES TWICE."
  238. 2960 PRINTTAB(10)"[158] PRESS RETURN "
  239. 2965 GETA$:IFA$=""THEN2965
  240. 2970 IFA$<>CHR$(13)THEN2965
  241. 2975 GOTO 1440
  242. 2999 STOP
  243. 3000 PRINT"[147][154][215]HY, HELLO THERE FRIEND!"
  244. 3010 PRINT"[200]OW ARE YOU TODAY?"
  245. 3020 PRINT"[215]ELCOME TO A LESSON ON THE SIMPLE"
  246. 3030 PRINT"SENTENCE."
  247. 3040 PRINT"[205]Y NAME IS [214]IC."
  248. 3050 PRINT"[208]LEASE TYPE IN YOUR NAME."
  249. 3060 PRINT:INPUT"[217]OUR NAME PLEASE...";N$
  250. 3070 PRINT:PRINT"[212]HANK YOU ";N$;".[199]LAD TO MEET YOU."
  251. 3080 PRINT"[215]E'LL HAVE SOME FUN TOGETHER."
  252. 3090 PRINTTAB(9)"PLEASE PRESS RETURN"
  253. 3100 GETA$:IFA$=""THEN3100
  254. 3110 IFA$<>CHR$(13)THEN3100
  255. 3220 POKE53272,23
  256. 3230 RETURN
  257. 4000 FORL=1TO5
  258. 4010 READD$,S$
  259. 4020 PRINTD$
  260. 4030 GOSUB2000
  261. 4040 NEXTL
  262. 4045 GOSUB20
  263. 4060 PRINT"[217]OUR TOTAL SCORE IS ";P
  264. 4070 PRINTTAB(11)"[158]PRESS RETURN"
  265. 4080 GETA$:IFA$=""THEN4080
  266. 4090 IFA$<>CHR$(13)THEN4080
  267. 4100 RETURN
  268. 5000 DATA"1) [199]EORGE STOPPED HERE TODAY.","[199]EORGE"
  269. 5010 DATA"2) [196]OGS MAKE GOOD PETS.","[196]OGS"
  270. 5020 DATA"3) [196]OES [205]IKE LIVE HERE?","[205]IKE"
  271. 5030 DATA"4) [212]HAT BUILDING IS TALL.","BUILDING"
  272. 5040 DATA"5) [205]OST PEOPLE ENJOY VACATIONS.","PEOPLE"
  273. 5050 DATA"1)[215]HO IS THAT MAN?","IS"
  274. 5060 DATA"2)[193]RE YOU CERTAIN ABOUT THAT","[193]RE"
  275. 5070 DATA"3)[212]HAT CAR BELONGS TO ME.","BELONGS"
  276. 5080 DATA"4)[212]HE BOSS MADE THE DECISION.","MADE"
  277. 5090 DATA"5)[201] LIKE AIRPLANES.","LIKE"
  278. 5100 DATA"1)[195]LOSE THE DOOR,","1"
  279. 5110 DATA"2)[201] ENJOY CANDY.","2"
  280. 5120 DATA"3)[217]OU WILL NOT GO TODAY!","4"
  281. 5130 DATA"4)[200]E WALKED TO TOWN.","2"
  282. 5140 DATA"5)[215]HAT IS YOUR NAME?","3"
  283. 5150 DATA"1)[205]IKE AND [201] VISITED [193]FRICA.","1"
  284. 5160 DATA"2)[202]OYCE SANG AND JUMPED.","2"
  285. 5170 DATA"3)[215]E ATE LUNCH AND WATCHED A FILM.","2"
  286. 5180 DATA"4)[194]ILL AND [196]AN WATCHED AND WAITED.","3"
  287. 5190 DATA"5)[197]ITHER [202]OHN OR HE WILL GO.","1"
  288. 5200 DATA"1)MY FRIEND [202]ANE AND [201]..","B"
  289. 5210 DATA"2)STOPPED HERE YESTERDAY..","A"
  290. 5220 DATA"3)INTO A LARGE HOUSE..","C"
  291. 5230 DATA"4)KNOCKED ON THE DOOR..","A"
  292. 5240 DATA"5)FOR TWO WEEKS..","C"
  293. 6000 S=54272:FORE=STOS+28:POKEE,0:NEXT
  294. 6010 POKES+24,15:POKES+5,42:POKES+6,250
  295. 6020 POKES+4,33:POKES+1,23:POKES,181
  296. 6030 FORT=1TO200:NEXT:POKES+4,32:FORT=1TO500:NEXT
  297. 6040 RETURN
  298. 6100 S=54272:FORE=STOS+28:POKEE,0:NEXT
  299. 6110 POKES+24,15:POKES+5,18:POKES+6,242
  300. 6120 POKES+4,33:POKES+1,4:POKES,48
  301. 6130 FORT=1TO300:NEXT:POKES+4,32:FORT=1TO800:NEXT
  302. 6140 RETURN
  303. 6200 S=54272
  304. 6210 FORL=STOS+24:POKEL,0:NEXT
  305. 6220 POKES+5,12:POKES+6,128:POKES+24,15
  306. 6230 READHF,LF,DR
  307. 6240 IFHF=-1THENRESTORE:RETURN
  308. 6250 POKES+1,HF:POKES,LF:POKES+4,33
  309. 6260 FORT=1TODR:NEXT
  310. 6270 POKES+4,32:FORT=1TO5:NEXT
  311. 6280 GOTO6230
  312. 6290 DATA16,195,100,22,96,100,28,49,100,33,135,400,28,49,100,33,175,100
  313. 6300 DATA-1,-1,-1
  314.