home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07b.d64 / mutate!boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  51 lines
  1. 10 rem mutate! and all included files
  2. 20 rem         copyright 1994
  3. 30 rem  compute publications intl ltd
  4. 40 rem      all rights reserved
  5. 50 rem
  6. 60 rem  all mutate! programs & fonts
  7. 70 rem     written by gary noakes
  8. 80 rem
  9. 90 poke53280,0:poke53281,0:print"[147]":poke53265,11:poke788,52
  10. 100 poke56576,148:poke648,192:print"[147]":poke53272,10:poke56334,0:poke1,51
  11. 110 poke88,0:poke89,240:poke90,0:poke91,224:poke781,9:poke782,0:sys41964
  12. 120 poke1,55:poke56334,1
  13. 130 a$="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][160][221] [221][160][221][160][221][160][221][160][221][160][221] [221] [221]"
  14. 140 b$="[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  15. 150 poke214,9:print:print"[155][176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
  16. 160 fori=1to6:printa$:printb$:next:printa$
  17. 170 print"[173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
  18. 180 poke214,10:print:print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] "
  19. 190 print" [221][195][207][205][208][213][212][197]'[211] [199]azette [208]resents:[221] [151][192][219]"
  20. 200 print" [221]     [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]     [221] [151] [221]"
  21. 210 print" [221]     [153][165] [205] [213] [212] [193] [212] [197] ! [167][187]    [221] [151][192][219]"
  22. 220 print" [221]     [163][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]    [221] [151] [221]"
  23. 230 print" [221]  [193] [214]ideo [212]itling [208]rogram  [221] [151][192][219]"
  24. 240 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [151] [221]"
  25. 250 print"[151][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219]"
  26. 260 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] "
  27. 270 print" [221]                           [221] [151] [221]"
  28. 280 print" [221]                           [221] [151][192][219]"
  29. 290 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [151] [221]"
  30. 300 printspc(6)"[151][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177]":poke53265,27
  31. 310 a$="  [204]oading [198][207][206][212] [196]ata":gosub490
  32. 320 poke147,0:sys57812"mutate!font",8,1:sys62631
  33. 330 a$=" [204]oading [200][197][204][208] [211]creens":gosub490
  34. 340 poke147,0:sys57812"mutate!help",8,1:sys62631
  35. 350 a$="[204]oading [205]ore [198][207][206][212] [196]ata":gosub490
  36. 360 sys57812"m!mutate!",8,0:poke780,0:poke781,0:poke782,240:sys65493
  37. 370 open15,9,15:close15:ifst<>0thenpoke251,8:goto450
  38. 380 open15,9,15:print#15,"ui":input#15,e,e$:close15
  39. 390 dr=val(right$(e$,4)):if(dr<1541ordr>1571)then450
  40. 400 poke214,20:print:printtab(7)""dr"[157] [196]rive #9 detected!"
  41. 410 printtab(7)"[213]se for text files? [153][[217]/[206]]"
  42. 420 getg$:ifg$="n"thenpoke251,8:goto450
  43. 430 ifg$="y"thenpoke251,9:goto450
  44. 440 goto420
  45. 450 a$=" [204]oading [205][193][201][206] [208][210][207][199][210][193][205] ":gosub490
  46. 460 print"[144]poke43,53:poke44,3:poke820,0:new"
  47. 470 print"load"chr$(34)"mutate!"chr$(34)",8"
  48. 480 print"run":poke631,19:fori=632to634:pokei,13:next:poke198,4:end
  49. 490 poke214,20:print:printtab(7)"  "a$
  50. 500 printtab(7)"     [208]lease [211]tand [194]y      [144]":return
  51.