Commodore 1541 - APPENDIX C: Demonstration Disk Programs

APPENDIX C: Demonstration Disk Programs
1. DIR •■ ■
4 0PEM2 S.15
5 pfimttt goto
I Li 0PEN1 .3D. "19"
£0 GET! I Fit EJ
GETil .i=i*. 3*
c=e
if h*ou" then
:- ?»': ■ them
?3 C-ET«l-£l tF STO0 THEN
[00 IF &fOCMFT.*O-4J THEN W
110 ..E'»l ?J IF B*00R*<3OTHEN PPJHTB* l-OTCIIO
:;■■ GET*1 BS TF PI^CHPJ- ?2 - THEM 1^'?
IIS PRINT Tfl?-|8>i CT="
[4? C*-C54-B* GETK1.BS IF B*O"
ISO PRINT"B"LEFT*fC* 3)
:-?9 GET Tt EF T*O"" THEIi GOSUE
170 IF ST=0 THEM 30
PMNT" BLOCrS FREE"
IF Tt= n- then CUDSEt
GET TJ IF T*="
9 Cl=1MI PRIMT">"
I5E7B*
PRIHTB*! IF E*-CHP»-:i3/ THEM
: ;j=C*~** GOTO -101 :
*i IF B
3029 PPIHT-B"
inPiP.? FFIKT 'P-pIPECTOPV
1B310 FPItlT "Sp-DIS* COTtflflMD"
10020 &PINT "O-SUIT FPOOPflri"
PRINT
OETFI*
if f\*^<t>" them is
i83ee [F ft*-"-" cjr nt»">- of h4=i-i them
19310 IF Ht-"G" THEM fflli
10320 IF R»n"5" THEM
10?:^ GOTO 10100