home *** CD-ROM | disk | FTP | other *** search
/ Publication 9 / Publication_09_1996_High-Tech_de_Side_B.d64 / spr.main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  57 lines
  1. 10 poke55,200:poke56,17:clr:poke650,128:a=2:v=53248:dima$(15)
  2. 15 fori=0to15:a$(i)="--- / -":sys6622,6912+i*64:poke7936+i,0:next
  3. 20 poke53281,14:poke53280,6:print"[147]           [211][208][210][201][212][197]-[195][207][204][204][197][195][212][207][210].            ";
  4. 30 print"     (w) 1985 by [194]eister-software.      "chr$(14)chr$(8):poke7967,14
  5. 400 print"     [176][192][192][192][178][192][192][192][174]":print"     [221]   [221]   [221]":print"     [221]   [221]   [221]
  6. 410 [153]"     (NULL)   (NULL)   (NULL)":[153]"     -tantantan>=tantan<":[153]"     (NULL)peekank(NULL)  (NULL)
  7. 411 print"     [221]    [173][192][192][179]":print"     [221][206]r. [176][192][192][179]":print"     [221]    [221]  [221]
  8. 412 [153]"     /tantantantan>tantanexp":[151]v[170]23,0:[151]v[170]29,0:[151]v[170]28,2:[151]v[170]16,0
  9. 420 [151]2040,11:[151]2041,11:[151]v,72:[151]v[170]1,99:[151]v[170]21,3:[151]v[170]2,104:[151]v[170]3,99
  10. 440 [153]" ortantantantantantantan=tantantantantantantan^":[153]" (NULL)peekox    (NULL)       (NULL)":[153]" /tantantantantantantan>tantantantantantantanexp
  11. 450 print" f1[146] f3[146] f5[146] f7[146] *[146] _[146] +[146] -[146] s[146] 1[146] c[146] up[146] down[146] cr[146]
  12. 460 [153]" rightwait leftwait + len=wait oder ctrlwaitsys
  13. 600 :
  14. 610 gosub820:gosub830:gosub840:gosub870
  15. 620 geta$:ifa$="[145]"thenba=(ba+1)and3:gosub870
  16. 630 ifa$=""thenba=(ba-1)and3:gosub870
  17. 640 ifpeek(197)<>2then670
  18. 645 onpeek(653)goto660,650,660,660
  19. 650 po=(po+1-(peek(653)=2)*9)and255:gosub840:goto670
  20. 660 po=(po-1+(peek(653)=4)*9)and255:gosub835
  21. 670 ifa$="[133]"thenb=(peek(v+39)+1)and255:pokev+39,b:pokev+40,b
  22. 680 ifa$="[134]"thenpokev+37,(peek(v+37)+1)and255
  23. 690 ifa$="[135]"thenpokev+38,(peek(v+38)+1)and255
  24. 695 ifa$="[136]"thenb=(peek(v+33)+1)and15:pokev+33,b:poke7967,b
  25. 700 ifa$="*"thenpoke1191+4*mc,32:mc=1-mc:gosub820
  26. 730 ifa$="+"thenbo=(bo+1)and15:gosub830
  27. 750 ifa$="-"thenbo=(bo-1)and15:gosub830
  28. 760 ifa$="_"thensys6622,6912+bo*64:a$(bo)="--- / -":poke7936+bo,0:gosub880
  29. 770 ifa$="c"thenpokev+21,0:print"[147]":sys6619:pokev+21,3:goto20
  30. 800 ifa$=chr$(13)thena$(bo)=right$(" "+str$(po),3)+" /"+str$(ba):goto880
  31. 805 ifa$<>"1"then811
  32. 806 gosub970:sys6613
  33. 807 close1:pokev+21,3:goto20
  34. 811 ifa$<>"s"then818
  35. 812 gosub970:sys6616:goto807
  36. 818 goto620
  37. 820 poke1191+mc*4,42:poke55463+4*mc,7:return
  38. 830 poke214,16:print:printtab(7)right$(str$(bo),2)""a$(bo):return
  39. 835 ifba=0and(po>63andpo<128)thenpo=63
  40. 836 ifba=0andpo=11thenpo=10
  41. 840 ifba=0and(po>63andpo<128)thenpo=128
  42. 841 ifba=0andpo=11thenpo=12
  43. 850 poke214,12:print:printtab(7)right$(" "+str$(po),3)
  44. 855 ifba=0and(po>31andpo<64)thensys6610,po*64+2512,704:return
  45. 860 sys6610,ba*16384+po*64,704:return
  46. 870 poke214,10:print:printtab(8)str$(ba):goto850
  47. 880 sys6610,704,6912+bo*64:poke7936+bo,mc
  48. 890 a$="+":po=(po+1)and255:gosub840:goto730
  49. 970 d$=""
  50. 980 poke214,19:print:printtab(8-len(d$)/2)"[145] "chr$(34)d$chr$(34)" "
  51. 990 geta$:ifa$=""then990
  52. 1000 ifa$=chr$(13)andd$<>""thenpokev+21,0:open1,8,1,d$:return
  53. 1010 ifa$=""andd$<>""thend$=left$(d$,len(d$)-1)
  54. 1020 ifa$=""ora$=""ora$=chr$(13)ora$=chr$(141)then980
  55. 1030 ifa$=chr$(34)orlen(d$)>15then980
  56. 1050 d$=d$+a$:goto980
  57.