home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / spreadsheet (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  2.6 KB  |  93 lines
  1. 0 REM SPREADSHEET TEXT READER
  2. 1 IFPEEK(51201)<>12ORPEEK(51202)<>200THENLOAD"ROUTINES V4",8,1
  3. 2 D$=CHR$(96):FORX=1TO6:D$=D$+D$:NEXT
  4. 3 OPEN15,8,15
  5. 4 POKE650,255
  6. 5 DA$=" --------------------------------------"
  7. 6 LI=52016:SU=51206:SD=51209:CL=51203
  8. 7 FORC=217TO242:POKEL,PEEK(L)OR128:NEXT
  9. 8 PRINT"[147][154]";:POKE53281,0:POKE53282,9
  10. 9 POKE1020,4:POKE1021,21:POKE1022,1:POKE1023,38
  11. 10 FI$="STEIN TEXT"
  12. 20 DM=900:DIMIN$(DM)
  13. 30 GOSUB5000:REMOPENING BLURB
  14. 40 GOSUB6000:REMLOAD FILE
  15. 45 PRINT"[147]";:GOTO50
  16. 46 PRINT"[176]";LEFT$(D$,38);"[174]";
  17. 47 FORI=1TO18:PRINT"[221]                                      [221]";:NEXT
  18. 48 PRINT"[173]";LEFT$(D$,38);"[189]";:PRINT"";:FORL=217TO242:POKEL,128ORPEEK(L):NEXT
  19. 49 RETURN
  20. 50 GOSUB7000:GOSUB46:PRINT"";:
  21. 800 PRINT:FORC1=0TO16:PRINT""IN$(C1):NEXT:PRINT""IN$(C1);:LP=0
  22. 810 POKE646,1:SYSCL:PRINT"";
  23. 850 GETK$:PRINT"[158]";:IFK$=""THEN850
  24. 860 IFK$="[145]"ORK$=""ORK$="[134]"ORK$="[138]"THENGOSUB11000:GOTO850
  25. 865 IFK$="[137]"ORK$="[133]"THENFORCC=1TO18:GOSUB11000:NEXT:GOTO850
  26. 870 IFK$=""ORK$="[157]"ORK$="[139]"ORK$="[135]"THENGOSUB10000:GOTO850
  27. 875 IFK$="[136]"ORK$="[140]"THENFORCC=1TO18:GOSUB10000:NEXT:GOTO850
  28. 877 IFK$="P"THENGOSUB2000:PRINT"[147]":GOTO50
  29. 878 IFK$="X"ORK$="[216]"THEN63000
  30. 879 IFK$="\"ORK$="[169]"THENGOSUB12000:         GOTO850
  31. 880 PRINT"[158]";:GOSUB7000:PRINT"[146][154]";:GOSUB7000:GOTO850
  32. 1000 :
  33. 2000 REM HARD(null)
  34. 2010 PRINT""DA$:PRINTDA$:PRINT"[212]URN ON YOUR PRINTER AND PRESS[160]<RETURN>"
  35. 2011 GETK$:IFK$=""THEN2011
  36. 2012 IFK$<>CHR$(13)THEN2090
  37. 2015 PRINT"  [208]RESS ANY KEY TO STOP PRINTING.      "
  38. 2020 PRINT"";
  39. 2030 OPEN4,4,7:PRINT#4,CHR$(17);
  40. 2040 LP=0
  41. 2050 IFLL-LP<120THEN2060
  42. 2052 FORI=LPTOLP+59:RS=60:GOSUB3000:NEXT
  43. 2054 GETC$:IFC$<>""THENPRINT#4:CLOSE4:       GOTO2090
  44. 2056 PRINT#4," ";:LP=LP+120:GOTO2050
  45. 2060 RS%=(LL-LP+2)/2:RS=RS%:FORI=LPTOLP+RS-1:GOSUB3000:NEXT
  46. 2070 PRINT#4," ";:GETC$:CLOSE4
  47. 2090 RETURN
  48. 3000 REM  PRINT LINES
  49. 3010 PRINT#4,IN$(I);SPC(40-LEN(IN$(I)));IN$(I+RS)
  50. 3020 RETURN
  51. 5000 PRINT""DA$:PRINT"         --[204]OADING SOME TEXT--"
  52. 5010 PRINT" ----------[208]LEASE BE PATIENT.----------"
  53. 5045 PRINT:PRINT:PRINT"[208]RESS 'X' TO EXIT NOW WITHOUT READING"
  54. 5050 PRINT:PRINT"THIS ARTICLE."
  55. 5060 RETURN
  56. 6000 OPEN8,8,8,FI$
  57. 6030 LL=0:POKE781,8:SYS65478
  58. 6040 SYSLI,B$:IN$(LL)=MID$(B$,1)
  59. 6044 IFPEEK(198)<>0THENIFPEEK(631)=88THEN6100
  60. 6045 IFST=0THENLL=LL+1:GOTO6040
  61. 6100 SYS65484:CLOSE8:CLOSE15
  62. 6105 LC=LL:NL=LL
  63. 6110 RETURN
  64. 6150 SYS65484:CLOSE8:CLOSE15
  65. 7000 PRINT" -----[208]RESS F1-F7 KEYS TO MOVE TEXT----"
  66. 7005 PRINT" -------[208]RESS 'P' TO PRINT TEXT.-------"
  67. 7010 PRINT" ----------[208]RESS 'X' TO EXIT-----------"
  68. 7015 PRINTDA$
  69. 7020 RETURN
  70. 10000 POKE646,1:SYSCL:PRINT"";:              IFLP>=LC-15THEN10015
  71. 10002 PRINT"";:        LP=LP+1:SYSSU
  72. 10005 IFLEFT$(IN$(LP+17),4)="\OAD"THEN        PRINT"":GOTO10020
  73. 10010 PRINTIN$(LP+17):GOTO10020
  74. 10015 POKE53280,RND(1)*15
  75. 10020 RETURN
  76. 10030 :
  77. 11000 POKE646,1:SYSCL:PRINT"";:              IFLP<=1THEN11015
  78. 11002 PRINT"";:LP=LP-1:SYSSD
  79. 11005 IFLEFT$(IN$(LP),4)="\OAD"THEN           PRINT"":GOTO10020
  80. 11010 PRINTIN$(LP):GOTO11020
  81. 11015 POKE53280,RND(1)*15
  82. 11020 RETURN
  83. 12000 REM   CAN YOU RUN IT NOW?
  84. 12010 FORX=LPTOLP+15:IFLEFT$(IN$(X),4)=       "\OAD"THEN13000
  85. 12020 NEXT:RETURN
  86. 13000 REM    YES, YOU CAN RUN IT NOW!
  87. 13005 PRINTCHR$(142)
  88. 13010 PRINT"[147]L"MID$(IN$(X),2):             PRINT"RUN"
  89. 13020 GOTO63020
  90. 63000 POKE650,128
  91. 63010 PRINT"[147]LOAD"CHR$(34)"HELLO"          CHR$(34)",8":PRINT"RUN"
  92. 63020 POKE631,13:POKE632,13:POKE198,2:        END
  93.