home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9311a.d64 / basic.demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  86 lines
  1. 2 REM * BASIC-DEMO FUER "POPUP V1" *
  2. 4 REM
  3. 6 IF Q=0 THEN Q=1:LOAD"POPUP V1.1",8,1
  4. 8 SYS 49152+6,"MENUE",8192:GOSUB152
  5. 10 REM
  6. 12 PRINT"[147]":P=49152:POKE53280,0:POKE53281,0
  7. 14 A$="[147]FOLGENDER MENUE-PUNKT WURDE AUSGEWAEHLT:"+CHR$(13)
  8. 16 SYS P+3,8,3,9,2:PRINT"":INPUTN$:IFN$=""THEN16
  9. 18 FORY=0TO22 STEP 3:SYS P+3,9,6,Y,1:NEXT
  10. 20 FORH=1TO2500:NEXT:PRINT"[147]":GOTO24
  11. 22 REM
  12. 24 FORH=1TO2000:NEXT
  13. 26 SYS P,1
  14. 28 A=PEEK(2):REM NR. DES MENUES
  15. 30 B=PEEK(3):REM NR. DES MENUE-PUNKTES
  16. 32 IF B=0 AND A<>0 GOTO144
  17. 34 IF A=0 AND B<=1 GOTO26
  18. 36 IF A=0 AND B=2 GOTO164
  19. 38 IF A=0 AND B=3 THEN GOSUB152:GOTO26
  20. 40 ON A-1 GOTO46,62,80,96,116,140
  21. 42 REM ... X-BELIEBIGE PROGRAMM-ZEILEN...
  22. 44 REM ----------------------
  23. 46 ON B GOSUB52,54,56,58
  24. 48 GOTO24
  25. 50 REM
  26. 52 PRINT A$:PRINT"DATEI: LADEN":RETURN
  27. 54 PRINT A$:PRINT"DATEI: SPEICHERN":RETURN
  28. 56 PRINT A$:PRINT"DATEI: DRUCKEN":RETURN
  29. 58 PRINT A$:PRINT"DATEI: EXIT":RETURN
  30. 60 REM ----------------------
  31. 62 ON B GOSUB68,70,72,74,76
  32. 64 GOTO24
  33. 66 REM
  34. 68 PRINTA$:PRINT"BEARBEIT: VERSCHIEBEN":RETURN
  35. 70 PRINTA$:PRINT"BEARBEIT: KOPIEREN":RETURN
  36. 72 PRINTA$:PRINT"BEARBEIT: LOESCHEN":RETURN
  37. 74 PRINTA$:PRINT"BEARBEIT: BLOCK":RETURN
  38. 76 PRINTA$:PRINT"BEARBEIT: EXIT":RETURN
  39. 78 REM -----------------------
  40. 80 ON B GOSUB86,88,90,92
  41. 82 GOTO24
  42. 84 REM
  43. 86 PRINTA$:PRINT"FORMAT: ZEILE":RETURN
  44. 88 PRINTA$:PRINT"FORMAT: SEITE":RETURN
  45. 90 PRINTA$:PRINT"FORMAT: TEXT":RETURN
  46. 92 PRINTA$:PRINT"FORMAT: EXIT":RETURN
  47. 94 REM -----------------------
  48. 96 ON B GOSUB102,104,106,108,110,112
  49. 98 GOTO24
  50. 100 REM
  51. 102 PRINTA$:PRINT"TOOLS: LEXIKON":RETURN
  52. 104 PRINTA$:PRINT"TOOLS: THESAURUS":RETURN
  53. 106 PRINTA$:PRINT"TOOLS: MACRO":RETURN
  54. 108 PRINTA$:PRINT"TOOLS: DATUM":RETURN
  55. 110 PRINTA$:PRINT"TOOLS: LINIEREN":RETURN
  56. 112 PRINTA$:PRINT"TOOLS: EXIT":RETURN
  57. 114 REM ------------------------
  58. 116 ON B GOSUB122,124,126,128,130,132,134,136
  59. 118 GOTO24
  60. 120 REM
  61. 122 PRINTA$:PRINT"FONT: NORMAL":RETURN
  62. 124 PRINTA$:PRINT"FONT: HOCH":RETURN
  63. 126 PRINTA$:PRINT"FONT: TIEF":RETURN
  64. 128 PRINTA$:PRINT"FONT: KLEIN":RETURN
  65. 130 PRINTA$:PRINT"FONT: GROSS":RETURN
  66. 132 PRINTA$:PRINT"FONT: NOCH GROESSER":RETURN
  67. 134 PRINTA$:PRINT"FONT: AM GROESSTEN":RETURN
  68. 136 PRINTA$:PRINT"FONT: EXIT":RETURN
  69. 138 REM ----------------------
  70. 140 PRINTA$:PRINT"INFO: TSCHUESS!":GOTO24
  71. 142 REM ----------------------
  72. 144 PRINT"[147]";N$
  73. 146 END
  74. 148 REM ----------------------
  75. 150 R=RND(0)*15:T=RND(TI)*15:C=RND(1)*15:RETURN
  76. 152 IF PEEK(3)=0 THEN RETURN
  77. 154 GOSUB150
  78. 156 SYS49152+3,10,10,10,3,R,T,C
  79. 158 GET T$: IF T$="" GOTO154
  80. 160 PRINT "[147]":RETURN
  81. 162 REM ------------------------
  82. 164 GOSUB150
  83. 166 SYS P+3,11,10,10,3,R,T,C
  84. 168 GET T$:IF T$="" GOTO164
  85. 170 PRINT"[147]":GOTO24
  86.