home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 December / 1989-12.d64 / basic_beginners (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.9 KB  |  67 lines
  1. 10 printchr$(147):poke53280,3:poke53281,3:poke214,5:print
  2. 20 fort=1to6:reada$(t):next
  3. 30 data167,18,32,144,5,125
  4. 40 c$="3435":d$="6363":e$="36"
  5. 50 printtab(5);
  6. 60 forz=1to2:b$="512"+c$+c$+e$+c$+c$+c$+e$+c$+c$+e$+c$+c$+c$+"3"
  7. 70 gosub1000:print:printtab(5);:next:printtab(5);
  8. 80 forz=1to2:b$="12"+e$+"3"+d$+d$+d$+d$+d$+d$
  9. 90 gosub1000:print:printtab(5);:next
  10. 100 poke214,8:print:printtab(34)chr$(192)chr$(201):printtab(35)chr$(194)
  11. 110 printtab(6)chr$(213);:fort=1to28:printchr$(192);:next:printchr$(203)
  12. 120 forz=1to5:printtab(6)chr$(194):next
  13. 130 printtab(6)chr$(202)chr$(192)chr$(145)chr$(145)chr$(145)tab(8);
  14. 140 forz=1to2:b$="12"+e$+c$+c$+e$+c$+c$+c$+e$+c$+c$+"3"
  15. 150 gosub1000:print:printtab(8);:next
  16. 160 forz=1to2:b$="123"+d$+d$+d$+d$+d$
  17. 170 gosub1000:print:printtab(8);:next
  18. 180 poke214,5:print:printtab(31)chr$(18)chr$(144)"c":printchr$(18);
  19. 190 j=10:gosub2000
  20. 200 data7,2,9,3,13,5,15,6,17,7,21,9,23,0,27,-,29,\,31,h
  21. 210 poke214,14:print:printchr$(18);
  22. 220 j=7:gosub2000
  23. 230 data12,d,14,f,18,h,20,j,22,k,26,":",28,";"
  24. 240 poke214,8:print:printchr$(18)chr$(5);
  25. 250 j=14:gosub2000
  26. 260 data6,q,8,w,10,e,12,r,14,t,16,y,18,u,20,i,22,o,24,p,26,@,28,*,30,^,32,z
  27. 270 poke214,16:print:printchr$(18);
  28. 280 j=11:gosub2000
  29. 290 data9,z,11,x,13,c,15,v,17,b,19,n,21,m,23,",",25,.,27,/,29,=
  30. 300 print:print""tab(13)"please wait.
  31. 400 [134]f1(62),f2(62),f3(62),f4(62)
  32. 410 k[178]256:mu[178]1.005
  33. 420 [129]j[178]1[164]41
  34. 430 [135]t,n
  35. 440 n1[178][181](n[172]mu)
  36. 450 f1(t)[178][181](n[173]k):f2(t)[178]n[171]f1(t)[172]k
  37. 460 f3(t)[178][181](n1[173]k):f4(t)[178]n1[171]f3(t)[172]k
  38. 470 [130]
  39. 480 v[178]54272:[129]j[178]v[164]v[170]23:[151]j,0:[130]
  40. 490 e[178]136:[151]v[170]5,e:[151]v[170]6,e:[151]v[170]12,e:[151]v[170]13,e
  41. 500 v1[178]v[170]1:v2[178]v
  42. 510 v3[178]v[170]8:v4[178]v[170]7
  43. 520 vn[178]33:vf[178]32
  44. 530 [151]v[170]24,15
  45. 540 kb[178]197:nk[178]64
  46. 550 [153]"on"[163]13)"okay, hit it!
  47. 560 t=peek(kb):ift=nkthen560
  48. 570 pokev1,f1(t):pokev2,f2(t)
  49. 580 pokev3,f3(t):pokev4,f4(t)
  50. 590 pokev+4,vn:pokev+11,vn
  51. 600 ifpeek(kb)=tthen600
  52. 610 pokev+4,vf:pokev+11,vf
  53. 620 goto560
  54. 630 data62,2145,9,2408,14,2703,17,2864,22,3215,25,3608,30,4050,33,4291,38,4817
  55. 640 data41,5407,46,5728,49,6430,54,7217,12,8101,23,8583,20,9634,31,10814,28
  56. 650 data11457,39,12860,36,14435,47,16203,44,17167,55,19269,59,2273,8,2551,16
  57. 660 data3034,19,3406,24,3823,32,4547,35,5103,43,6069,48,6812,51,7647,18,9094,21
  58. 670 data10207,29,12139,34,13625,37,15294,45,18188,50,20415,53,21629
  59. 1000 fort=1tolen(b$)
  60. 1010 m$=mid$(b$,t,1)
  61. 1020 u=val(m$)
  62. 1030 v=val(a$(u))
  63. 1040 printchr$(v);
  64. 1050 next
  65. 1060 return
  66. 2000 forz=1toj:readm,n$:printtab(m)n$;:next:return
  67.