home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #3 / Floppy_Magazine_86-3_1986_Megasystems_Oy_fi.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  58 lines
  1. 10 if a>0then430
  2. 20 poke53280,0:poke53281,0:printchr$(14)
  3. 30 print"[147][158][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]";
  4. 40 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]{$7d}        -";
  5. 50 print" Floppy Magazine 64 -    ";
  6. 60 print"    [158]{$7d}[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  7. 70 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]{$7d}    ";
  8. 80 print"   [164][158]                     ";
  9. 90 print"         [221][221] [203]oivumaentie ";
  10. 100 print" 18 [194] 65, 01230 [214]antaa  [158][221]";
  11. 140 print"[158][221]                   ";
  12. 150 print"                   {$7d}[171]{$60}{$60}{$60}{$60}";
  13. 160 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  14. 170 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]{$7d}              ";
  15. 180 print"                        {$7d}";
  16. 190 print"{$7d} [154]Loppuvuoden tilaus vain";
  17. 200 print"  99 markkaa! [158][221][221]         ";
  18. 210 print"                         ";
  19. 211 print"    [221]";
  20. 212 print"[221] [154][211]is. 3 nroa.  [214]anhat nrot 35 mk/kpl.[158] [221]";
  21. 213 print"[221]                                      [221]";
  22. 220 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  23. 230 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]  [156][164][164][158]";
  24. 240 print"                         ";
  25. 250 print"         [221][221] [156][208]aatoimittaja";
  26. 260 print": Jari Pauna            [158]{$7d}";
  27. 270 print"{$7d}                        ";
  28. 280 print"              [221][221] [156][205]uu  toi";
  29. 290 print"mitus: [200] & [200] [212]ekoniemi   ";
  30. 300 print"    [158][221]";
  31. 330 print"[221]              ";
  32. 340 print"                        {$7d}";
  33. 350 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  34. 360 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]      [150][202]ul";
  35. 370 print"kaisija: [208]rotocol [207]y     ";
  36. 380 print"    [158]{$7d}[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  37. 390 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]     ";
  38. 400 print"                         ";
  39. 410 print"          ";
  40. 420 poke56,63:clr:a=1:load"floppisfile",8,1
  41. 430 sys29408
  42. 440 if a>1 then 460
  43. 450 a=2:load"view.lda",8,1
  44. 460 if a>2 then 480
  45. 470 a=3:load"print.lda",8,1
  46. 480 ifa>3then500
  47. 490 a=4:load"menuetti",8,1
  48. 500 ifa>4then520
  49. 510 a=5:load"finn.fnt",8,1
  50. 520 ifa>5then540
  51. 530 a=6:load"view.hlp",8,1
  52. 540 ifa>6then560
  53. 550 a=7:load"shelp.hlp",8,1
  54. 560 poke 646,peek(53248+33):poke 631,13:poke 632,13:poke 198,2
  55. 570 print"[147]load"chr$(34)"mx"chr$(34)",8"
  56. 580 print:print:print:print:print"run"
  57. 590 print""
  58.