home *** CD-ROM | disk | FTP | other *** search
/ Power Pack / Power_Pack_1_1992_Alfons_Mittelmeyer_de.d64 / .l-cardbox (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 1000 ifa=0thengosub49001
  2. 1010 ifa=0thena=1:load".d-cardbox",8,1
  3. 2000 print"[144]p[207]44,48:p[207]12288,0:l[207]"chr$(34)".m-cardbox"chr$(34)",8,1"
  4. 2020 print"p[207]53265,11:p[207]56576,199:p[207]648,4:sys4096"
  5. 2100 poke631,19:poke632,13:poke633,13:poke634,13
  6. 2110 poke198,4
  7. 2120 end
  8. 49001 sys 3136:print"[147]";:poke56576,199-3
  9. 49010 poke53272,16:poke53270,216:poke648,12*16+4
  10. 49090 poke53282,8:poke53283,9
  11. 50000 poke53280,0:poke53281,0
  12. 50010 print"[147]";
  13. 50015 printtab(12)"[158][@@@@@@@@@@@@@@@@@__@@[155]]"
  14. 50020 printtab(11)"[158][@@@@@@@@@@@@@@__@@@@@[155]\^"
  15. 50030 printtab(10)"[158][@@@@@@@@@@@__@@@@@@@@[155]\^^"
  16. 50040 printtab(9)"[158][@@@@@@@@__@@@@@@@@@@@[155]\^^^"
  17. 50050 printtab(8)"[158][@@@@@__@@@@@@@@@@@@@@[155]\^^^^"
  18. 50060 printtab(7)"[158][@@__@@@@@@@@@@@@@@@@@[155]\^^^^^"
  19. 50070 printtab(6)"[158][@@@@@@@@@@@@@@@@@@@@@[155]\^^^^^^"
  20. 50080 printtab(6)"[149]mmmmmmmmmmmmmmmmmmmmmm[155]^^^^^^^"
  21. 50085 printtab(6)"[149]mmmmmmmmmmmmmmmmmmmmmm[155]^^^^^^^"
  22. 50090 printtab(6)"[149]mmm[155]bccccccccccccccd[149]mmm[155]^^^^^^z"
  23. 50100 printtab(6)"[149]mmm[155]loppppppppppppqf[149]mmm[155]^^^^^z"
  24. 50110 printtab(6)"[149]mmm[155]ly[158]karteikasten[155]uf[149]mmm[155]^^^^z"
  25. 50120 printtab(6)"[149]mmm[155]lxwwwwwwwwwwwwvf[149]mmm[155]^^^z"
  26. 50130 printtab(6)"[149]mmm[155]jhhhhhhhhhhhhhhg[149]mmm[155]^^z"
  27. 50140 printtab(6)"[149]mmmmmmmmmmmmmmmmmmmmmm[155]^z"
  28. 50150 printtab(6)"[149]mmmmmmmmmmmmmmmmmmmmmm[155]z"
  29. 51000 return
  30.