home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 108 / 108.d81 / keypad (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  51 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 print"[147]":gosub160
  3. 110 poke 53281,0:poke 53280,0
  4. 120 print"[144]":print""
  5. 130 goto60000
  6. 140 print"run"
  7. 150 poke631,13:poke632,13:poke198,2:end
  8. 160 poke53280,0:poke53281,0:iffthenreturn
  9. 170 print"";
  10. 180 fori=1to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
  11. 190 fori=217to242:pokei,peek(i)or128:next
  12. 200 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  13. 210 fori=1to7:printtab(4)"[155]                                [151][223]":next
  14. 220 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
  15. 230 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  16. 240 poke214,14:print"[145][155]";
  17. 250 fori=1to5:reada$:gosub260:next:goto270
  18. 260 printspc(20-len(a$)/2)""a$:a$="":return
  19. 270 gosub400:sys49152
  20. 280 print"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  21. 282 [153]"systotototototototototototototototototototototototototototototototototototoononononon
  22. 290 printtab(13)"1[158].[159] [203]eypad [200]igh"
  23. 300 printtab(13)"2[158].[159] [203]eypad [204]ow"
  24. 310 printtab(13)"3[158].[159] [204][207][193][196][211][212][193][210]
  25. 312 [153]"def(NULL)rogram does not return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  26. 320 geta$:ifa$<"1"ora$>"3"then320
  27. 330 ifa$="1"thenf$="numeric pad1"
  28. 340 ifa$="2"thenf$="numeric pad2"
  29. 350 ifa$="3"thenf$="hello connect"
  30. 360 fori=10to0step-1:poke781,i:sys59903:next:return
  31. 370 data"[206][160][213] [205] [197] [210] [201] [195]   [203] [197] [217] [208] [193] [196]","by [202]ames [193]. [211]tevens
  32. 380 [131]"(NULL)1.0 (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #108","(NULL)ubscriptions 1-800-831-2694"
  33. 390 [131]"(len) 1993 (NULL)oftdisk (NULL)ublishing"
  34. 400 [129]i[178]0[164]59:[135]x:[151]49152[170]i,x:[130]:[142]
  35. 410 [142]
  36. 420 [131] 162,011,160,037,173,017,208
  37. 430 [131] 016,251,189,048,192,153,080
  38. 440 [131] 216,153,120,216,153,160,216
  39. 450 [131] 153,200,216,153,240,216,153
  40. 460 [131] 024,217,136,192,001,208,233
  41. 470 [131] 165,162,197,162,240,250,202
  42. 480 [131] 016,214,096,234,234,234,000
  43. 490 [131] 011,012,015,001,001,001,001
  44. 500 [131] 015,015,012,011
  45. 60000 a$[178]f$:[129]i[178]8[164]16:[160]2:[159]2,i,2:[160]2:[139]st[167]60020
  46. 60010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
  47. 60020 [130]:[153]"load":[151]186,8:[128]
  48. 60030 q$[178][199](34):[151]646,[194](53281):[153]"load"
  49. 60040 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  50. 60050 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  51.