home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern451.d64 / quicktype (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  2KB  |  61 lines
  1. 100 REM   ******* - QTYPE - ********
  2. 110 REM   BASIC PORTION BY DAVE PAUL
  3. 120 REM   [72626,1704]       8/12/84
  4. 130 REM
  5. 140 REM  ML BY PETE LOBL [70636,1171]
  6. 150 REM
  7. 160 POKE 53280,0:POKE53281,0
  8. 170 PRINT"[147][158]"TAB(15)"[209]UICK[212]YPE":FORI=1TO40:PRINT"[163]";:NEXT
  9. 180 PRINT"[204]OADING [205][204]...[158]":GOSUB320
  10. 190 OPEN10,4,10:PRINT#10:CLOSE10
  11. 200 POKE788,52:PRINT"[145]LINKER [210]AND ? 5 [157][157]";:SYS49152,2:MA=VAL(IN$)
  12. 210 PRINT:IFMA<0ORMA>79THEN200
  13. 220 MC=80-MA
  14. 230 SP$="                    ":SP$=SP$+SP$+SP$+SP$:MA$=LEFT$(SP$,MA)
  15. 240 PRINT"[146][158][197]INGABEENDE _[146]        ^[146] [198]ORMULAR [214]ORSCHUB"
  16. 250 SYS49152,MC:IFIN$="_"THEN310
  17. 260 IFIN$="^"THENOPEN1,4:PRINT#1,CHR$(12):CLOSE1:PRINT" ":GOTO250
  18. 270 T$=MA$+IN$:OPEN1,4,7:PRINT#1,T$:CLOSE1
  19. 280 PRINT:IFLEN(IN$)>39THENPRINT
  20. 290 IFPEEK(214)<24THEN250
  21. 300 PRINT"[147]";:GOTO240
  22. 310 POKE788,49:PRINT"[147]    ":END
  23. 320 FORI=49152TO49516:READML:POKEI,ML:NEXT:RETURN
  24. 330 DATA32,253,174,32,158,183,138,240,4,201
  25. 340 DATA198,144,3,76,72,178,232,142,56,3
  26. 350 DATA166,214,169,0,133,251,169,4,133,252
  27. 360 DATA202,48,13,24,165,251,105,40,133,251
  28. 370 DATA144,244,230,252,208,240,24,165,251,101
  29. 380 DATA211,133,251,144,2,230,252,160,0,24
  30. 390 DATA165,251,133,253,165,252,105,212,133,254
  31. 400 DATA173,134,2,145,253,200,204,56,3,208
  32. 410 DATA248,160,0,32,98,193,132,255,32,228
  33. 420 DATA255,240,251,164,255,32,98,193,201,20
  34. 430 DATA240,62,201,148,240,87,201,157,240,117
  35. 440 DATA201,29,240,121,201,13,240,127,201,32
  36. 450 DATA144,217,201,64,144,21,201,96,144,13
  37. 460 DATA201,160,144,205,201,192,176,7,56,233
  38. 470 DATA64,176,4,41,63,41,127,200,204,56
  39. 480 DATA3,208,4,136,76,83,192,136,145,251
  40. 490 DATA200,76,83,192,132,255,192,0,240,20
  41. 500 DATA177,251,136,145,251,200,200,204,56,3
  42. 510 DATA208,244,136,169,32,145,251,164,255,136
  43. 520 DATA76,83,192,132,255,172,56,3,136,136
  44. 530 DATA177,251,201,32,208,62,200,136,196,255
  45. 540 DATA240,9,136,177,251,200,145,251,76,207
  46. 550 DATA192,169,32,145,251,208,219,192,0,240
  47. 560 DATA215,136,76,190,192,200,204,56,3,208
  48. 570 DATA205,136,76,190,192,136,132,255,172,56
  49. 580 DATA3,136,192,255,240,52,177,251,196,255
  50. 590 DATA240,10,201,32,240,241,208,4,230,255
  51. 600 DATA208,171,200,140,57,3,160,0,177,251
  52. 610 DATA201,32,144,10,201,64,144,9,201,96
  53. 620 DATA176,2,105,64,24,105,64,153,58,3
  54. 630 DATA200,204,57,3,208,228,240,5,160,0
  55. 640 DATA140,57,3,169,255,133,13,169,73,133
  56. 650 DATA69,169,78,9,128,133,70,32,231,176
  57. 660 DATA133,73,132,74,173,57,3,32,125,180
  58. 670 DATA162,58,160,3,134,34,132,35,32,140
  59. 680 DATA182,76,100,170,72,177,251,73,128,145
  60. 690 DATA251,104,96,0,0
  61.