home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 July / 64er_Magazin_92-07_1992-12-02_Markt__Technik_de.d64 / mini-calc (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 0 poke46,21:poke48,21:poke50,21:poke52,160:s2=3428:s1=2610:dimo$(4,6):poke2053,137:v=53248
  2. 1 dima$(255),b(12):forr=0to11:readb(r):next:forr=0to23:fort=0to11:p=r*72+s2-16+t:w=b(t)
  3. 2 pokep,w:nextt:pokep-4,65+r:fort=1to60:pokep+t,48:nextt:pokep-8,20+r:q=s2+57+r*72:w=q/256
  4. 3 w=int(w):pokep-9,w:pokep-10,(q/256-w)*256:nextr:poke2040,13:forr=0to94:poker+832,0
  5. 4 a$(r)=chr$(r):nextr:pokev+32,0:pokev+21,1:pokev+29,1:a$(94)="[174]":a$(45)="[171]":a$(42)="[172]"
  6. 5 a$(43)="[170]":a$(47)="[173]":a$(61)="[178]":poke2054,55:forr=65to88:a$(r)="[165]"+chr$(r)+"(x)":next
  7. 6 pokev+39,1:forr=0to8:readh:poke5101+r,h:next:poke2055,58:data,,,,,150,165,,40,88,41,178,
  8. 7 gosub20:print"[147][154]":forj=0to5:ford=0to3:pokes1,65+j*4+d:a$=str$(fnx(x)):pokev+33,6:data125
  9. 8 printmid$(a$,1,9),"[157][157][157][157][157][157][157][157][145]  "chr$(65+j*4+d)"  [146]",:nextd:print"":nextj:data28,44,,142,,,
  10. 9 getg$:on-(g$=" ")goto12:x=3and(x+(g$="[157]")-(g$="")+4):poke834,31:s=(g$="[145]"):pokev+21,1
  11. 10 y=y+s-(g$=""):y=y-(y<0)+(y>5):poke53248,15+80*x:on-(g$="d")goto19:ifg$="l"then18
  12. 11 pokev+1,y*24+61:print"[145]                    "spc(20)"[145]"o$(x,y):on-(g$="s")goto17:goto9
  13. 12 input"wert/formel ";f$:l=len(f$):on-(l<1)-(l>20)goto7:k$=""
  14. 13 forr=1tol:k$=k$+a$(asc(mid$(f$,r,1))):next:forr=1tolen(k$):d=s2-5+72*x+288*y
  15. 14 o$(x,y)=f$:poked+r,asc(mid$(k$,r,1)):next:poked+r,58:poked+1+r,143
  16. 15 poke198,5:poke631,71:poke632,207:poke633,49:poke634,54:poke635,13:goto7
  17. 16 k$="":l=1:f$="0":print"[147]fehler !!!":poke198,0:wait 198,1:getge$:goto13
  18. 17 save"c",8,1:open1,8,2,"d,s,w":forr=0to3:fort=0to5:print#1,o$(r,t)+" ":nextt,r:close1:goto7
  19. 18 open1,8,2,"d,s,r":forr=0to3:fort=0to5:input#1,o$(r,t):nextt,r:close1:load"c",8,1
  20. 19 open4,4,4:forr=65to88:poke3382,r:i$=str$(fnx(x)):print#4,i$spc(20-len(i$));:next:close4:goto7
  21.