home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 March / 64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64 / einzelschrit.b20 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  21 lines
  1. 0 rem  einzelschrittgenerator v2.0            (c) 1.11.1989 by martin fuchs
  2. 1 a$=chr$(34)+chr$(34)+chr$(20):open2,8,15:open1,8,1,"einzelschritte.b,p,w":poke198,5
  3. 2 print"[147]ahkh[197][146]g^[146]2070@@@@@@@@@@@@)x [146]je[146]+d[146], [217]&[146][204].'[146][204]2h%[146]a";:poke631,19
  4. 3 print"[200] [208]j[168]e[146]a[216][160]-[146]hc,[146]icm[146]mhl[146]nh-[146]@c,[146]acm[146]ohl[146]ph)] [146]hm[146]hc";:poke632,29
  5. 4 print"l[146]ic)w [146]hm[146]@cl[146]ac-[146]bc,[146]ccm[146]shl[146]th)q [146]hm[146]bcl[146]cc [146]@1[146][186]I";
  6. 5 print"[146],[176][146]j[201]j[208][146]l [179]@[204]^h [179]@[204] ([146][168][168][204][217]([146] xj[172]bc xj[172]oh:n[146]uh";:poke633,29:poke634,34
  7. 6 print"%[146]@[200]%[146]a[200])[146]/e[146]@[184])[146]4e[146]a"a$"[146]@n[146]a[214]5[146]@][146]@[208]=[146]@a][146]@[209]=[146]@b][146]@[210]=[146]@c";
  8. 7 print"][146]@S[168]P[166][146][168]m[146]aP[146][168]m[146]@P)[146]7e[146]a-[146]!P[146]Ihmf[146]b [166][165]-[146]fc,[146]gcm[146]qhl[146]r";
  9. 8 print"h)[146]P [146]im[146]fcl[146]gc)[146]# [146]im[146]&cl[146]'c%[146]9$[146]:e[146]td[146]u s&%[146]9$[146]:e[146]td[146]u";
  10. 9 print" [146]@d[146]cHd[146]oLW&[146]HI[146]m[176][146][166]eWj[146]Hx[146]H[184])[146]4e[146]a.[146]aV$S1Q][146]@T[166][146]a1[179]";
  11. 10 print"F[146]a][146]@U[174][146]aV)[146]7e[146]aL][167][146]H%[146]{$7f}&[146][160]d[146]bF[146]bx[165]bp[146]a[168]E[146][186]P[146]h[164][146][187]P[146]d)[191]";
  12. 11 print"e[199][146][168]&[199][176][146]v[201][146]:[176][146]j&[146]c0n[198][146]c[208][146]j[176][146]d&[146]c[176][146]h"a$"[146]@f[199]*[146][172]qh[166][146]c[208][184][146] u[189]";
  13. 12 print"$[211][146][184])[146]4e[146]a.[146]a[214]1[209]][146]@[212][166][146]a1[179][198][146]a][146]@[213])[146] q[209][168][200][196][213]p[168][176][166]n[146]a[214]"a$;:poke635,13
  14. 13 print"[146]@=[146]@[209]][146]@a=[146]@[210]][146]@b=[146]@[211]][146]@c[168][208][171]"a$"[146]b=[146]@[208]u[146]@[168][208][184]-[146]a[208],[146]@[208]d[146]@";
  15. 14 print".[146]uhz[146]H)[146]7e[146]a <[182]%qI{$7f}[176][146]u [161][191][176][146]z g[170]&F[176][171]=[146][182]bI[146] P[164]FF[146] ";
  16. 15 print"Pj[168]e[146]aX[172]mh[168]e[146]a 4(-[146]sh,[146]thm[146]bcl[146]cc-[146]oh,[146]phm[146]@cl[146]ac-";
  17. 16 print"[146]qh,[146]rh[176][146]km[146]fcl[146]gc)[146]@m[146]rh-[146]mh,[146]nhm[146]hcl[146]ic[160]%[146]@H)[146]/e[146]@%[146]b";
  18. 17 print"H%[146]cH[184])[146]4e[146]a-h[146]be[146]c [146]@d[146]b>[146]@T1[146]by[146]@Tjq[146]b9[146]@U[166][146]a>[146]@Xy[146]@X";
  19. 18 print"[198][146]ajy[146]@[213][200][204][146]a[214]p[255][146][168]e[146]c[168]e[146]b[168]e[146]@[160]@@@":forn=1024to1690:print#1,chr$(peek(n));:next
  20. 19 input#2,b$,c$,d$,e$:print"[147]"b$","c$","d$","e$:close1:close2:print"l[207]einzelschritte.b"a$",8
  21.