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