home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #10 / Commodore_Disk_User_Vol.4_10_1991_-.d64 / c (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  157 lines
  1. 1 poke788,52
  2. 12 ifz=1thenm$=ld$:gosub1200:goto1310
  3. 13 ifz=5thens$=ld$:gosub1220:goto1350
  4. 17 ifp=2then430
  5. 18 gosub999
  6. 19 poke53280,0:poke53281,0:print"[147][159]":printtab(11)chr$(18)"games list creator"
  7. 20 printtab(12)chr$(18)"written by j.kay":printtab(18)"[158]menu"
  8. 30 printtab(18)"[183][183][183][183]":print" [1] create a new list.":p=0
  9. 40 print" [2] add to an old list.":print" [3] create a new scrolling message."
  10. 50 print" [4] run games list."
  11. 51 print"[158]copyright commodore disk user 1990"
  12. 60 geta$:ifa$="1"thenmp=20000:ms$="(new list entry)":goto100
  13. 61 ifa$="2"thenms$="(old list update)":goto390
  14. 62 ifa$="3"then600
  15. 63 ifa$="4"then1010
  16. 64 goto60
  17. 100 print"[147]enter 'q' to finish"
  18. 101 print"press a key a key to begin...":gp=0
  19. 102 geta$:ifa$=""then102
  20. 103 print"[147]"
  21. 110 print"                                     "
  22. 111 print"[154]^   maximum----title length ^"
  23. 112 print"enter game title"
  24. 120 print"games processed-";gp
  25. 121 print"[156]";ms$
  26. 123 print"[153]$=dir  q=save-list[146]"
  27. 130 print"[159]*";
  28. 140 geta$
  29. 141 ifa$="$"then2000
  30. 142 ifa$="#"ora$=""then140
  31. 150 n=asc(a$):ifn=13thengp=gp+1:goto200
  32. 160 print"[157]";chr$(n);"*";
  33. 170 goto 140
  34. 200 forx=1024to1052
  35. 210 r=peek(x):ifr=42then290
  36. 220 pokemp,r:mp=mp+1
  37. 225 ifmp=3999 thengosub1600
  38. 226 ifmp=3999 then print"[147]out of memory,saving titles to disk now!":goto310
  39. 230 nextx
  40. 290 ifpeek(mp-2)=35thenifpeek(mp-1)=17then310
  41. 300 pokemp,35:mp=mp+1:goto110
  42. 310 pokemp-1,5:poke(mp),14:poke(mp+1),4:poke(mp+2),36:forx=3to11:pokemp+x,35:next
  43. 311 gosub1600
  44. 312 print"[147]clearing old file,please wait.....":open15,8,15,"s:the games":close15
  45. 313 print"saving 'the games' to disk,please wait.."
  46. 340 sys40000
  47. 350 print"save operation complete,any key for menu"
  48. 360 geta$:ifa$=""then360
  49. 361 goto19
  50. 390 gosub1600
  51. 400 print"[147]loading in games,please wait............":p=2:load"the games",8,1
  52. 430 print"[147]=-searching for end"
  53. 431 forx=20000to34880
  54. 435 print"";x
  55. 440 ifpeek(x)=36thenmp=x:goto460
  56. 450 next
  57. 460 pokemp-4,35:mp=mp-3:goto100
  58. 462 pokemp-4,35:mp=mp-3:goto100
  59. 600 print"[147]size of space(1-5)?"
  60. 601 geta$:ifa$=""then601
  61. 602 ifa$="1"thensb=1:goto649
  62. 603 ifa$="2"thensb=2:goto649
  63. 604 ifa$="3"thensb=3:goto649
  64. 605 ifa$="4"thensb=4:goto649
  65. 606 ifa$="5"thensb=5:goto649
  66. 610 goto601
  67. 649 forx=1to25:print:nextx:print"_end here"
  68. 650 lp=1024:poke1024,42
  69. 660 geta$:ifa$=""then660
  70. 670 p=asc(a$):q=p-64
  71. 671 iflp<>1024thenifp=20thenpokelp,32:pokelp-1,42:lp=lp-1:goto660
  72. 672 ifp=32thenq=32:fork=1tosb:pokelp,q:lp=lp+1:pokelp,42:next:iflp=>1974then700
  73. 673 ifp=32then660
  74. 674 ifp=13then700
  75. 675 ifp<65 or p>90 then 660
  76. 680 pokelp,q:lp=lp+1:pokelp,42:iflp=1974thengoto700
  77. 690 goto660
  78. 700 b=0:forx=1024tolp:u=peek(x):ifu=32thenu=0
  79. 701 poke49152+b,u:b=b+1:pokex,32:next:poke49152+(b-1),56
  80. 705 gosub1600
  81. 706 print"[147][158]scratching old file,please wait........."
  82. 707 open15,8,15,"s:message":close15
  83. 708 print"saving memory to disk,please wait......."
  84. 709 sys40059
  85. 710 print"save complete,press a key for menu....."
  86. 720 geta$:ifa$=""then720
  87. 721 goto19
  88. 950 data169,8,160,255,162,8,32,186
  89. 951 data255,169,9,162,100,160,156,32
  90. 952 data189,255,169,32,133,251,169,78
  91. 953 data133,252,169,251,162,183,160,136
  92. 954 data32,216,255,96,84,72,69,32
  93. 955 data71,65,77,69,83,77,69,83
  94. 956 data83,65,71,69,83,0,0,0
  95. 957 data0,0,0,169,8,160,255,162
  96. 958 data8,32,186,255,169,7,162,109
  97. 959 data160,156,32,189,255,169,0,133
  98. 960 data251,169,192,133,252,169,251,162
  99. 961 data0,160,196,32,216,255,96
  100. 999 forx=40000to40094:reads:pokex,s:next:return
  101. 1010 gosub1600
  102. 1011 poke53280,0:poke53281,0
  103. 1012 nl$="needs loading":bl$="being loaded  ":ld$="loaded         ":print"[147]"
  104. 1013 m$=nl$:s$=nl$:p$=nl$:e$=nl$:t$=nl$
  105. 1020 print"hit a key to load and run the games list":gosub1200
  106. 1030 geta$:ifa$=""then1030
  107. 1040 k=1:goto1300
  108. 1200 rem
  109. 1210 print"message-----";m$:ifk=1thenreturn
  110. 1220 print"the games---";s$:ifk=1thenreturn
  111. 1261 return
  112. 1300 z=1:m$=bl$:gosub1200:load"message",8,1
  113. 1310 z=5:s$=bl$:gosub1220:load"the games",8,1.
  114. 1320 z=5:s$=bl$:gosub1220:load"the games",8,1.
  115. 1350 print"press a key to run games list"
  116. 1360 geta$:ifa$=""then1360
  117. 1380 sys35300
  118. 1500 print""
  119. 1501 forf=1to16:print"                        ":next
  120. 1502 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":return
  121. 1600 print"[147]     insert 'the games' disk":print:print"       then press return"
  122. 1605 geta$:ifa$=""then1605
  123. 1606 return
  124. 2000 print"                                  ":gosub1500
  125. 2010 open1,8,0,"$"
  126. 2020 get#1,a$,b$
  127. 2025 forx=1to144
  128. 2030 get#1,a$,b$:get#1,a$,b$:c=0
  129. 2060 ifa$<>""thenc=asc(a$)
  130. 2070 ifb$<>""thenc=c+asc(b$)*256
  131. 2080 print""mid$(str$(c),2);tab(4);"[146]";
  132. 2090 get#1,b$:ifst<>0then2180
  133. 2100 ifb$<>chr$(34)then2090
  134. 2110 get#1,b$:ifb$<>chr$(34)thenprintb$;:goto2110
  135. 2120 get#1,b$:ifb$=chr$(32)then2120
  136. 2130 printtab(21);:c$=""
  137. 2140 c$=c$+b$:get#1,b$:ifb$<>""then2140
  138. 2150 print""left$(c$,3):gosub4000
  139. 2155 nextx
  140. 2170 ifst=0then2030
  141. 2180 print"blocks free[146]"
  142. 2190 close1:goto3000
  143. 3000 print"[156] $=directory   t=typing [146]"
  144. 3100 geta$:ifa$=""then3100
  145. 3200 ifa$="$"then2000
  146. 3310 ifa$="t"thenprint"[145]                        ":goto123
  147. 3999 goto3100
  148. 4000 ifx=15orx=30orx=45orx=60orx=75orx=90orx=105orx=120orx=135thengosub4040
  149. 4010 return
  150. 4040 print"[156]anykey=continue t-typing"
  151. 4041 geta$:ifa$=""then4041
  152. 4042 ifa$="$"then4050
  153. 4043 ifa$="t"thenclose1:print"[145]                        ":goto123
  154. 4050 print""
  155. 4051 forf=1to16:print"                        ":next
  156. 4052 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":return
  157.