DataMuseum.dk

top - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »B7«

└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
    └─⟦this⟧ 

TextFile

 0010 DIM TEXT$(60),BUF$(128),SVAR$(3)
 0020 PRINT CHR(12)
 0030 EXEC XY(25,12)
 0040 PRINT "THINK OF AN INDEPENDANT NATION !"
 0050 EXEC XY(50,22)
 0060 INPUT "TYPE 'RETURN' WHEN READY",TEXT$
 0070 OPEN "GEODATA",F,BUF$,68
 0080 REPEAT 
 0090   PRINT CHR(12)
 0100   TÆLLER=2
 0110   GET F,1 : TEXT$,JA,NEJ
 0120   LET LÆNGDE=LEN(TEXT$)
 0130   PRINT TEXT$
 0140   WHILE JA<>0 DO 
 0150     EXEC XY(LÆNGDE+2,TÆLLER)
 0160     REPEAT 
 0165       PRINT CHR(31); 
 0170       INPUT SVAR$
 0180       IF SVAR$="YES" THEN SVAR$="YES"
 0190       IF SVAR$="NO" THEN SVAR$="NO"
 0200       IF SVAR$<>"YES" AND SVAR$<>"NO" THEN 
 0210         PRINT CHR(7); TAB(LEN(TEXT$)+2); CHR(26); 
 0220       ENDIF 
 0230     UNTIL SVAR$="YES" OR SVAR$="NO"
 0240     IF SVAR$="YES" THEN 
 0250       GET F,JA : TEXT$,JA,NEJ
 0260     ELSE 
 0270       GET F,NEJ : TEXT$,JA,NEJ
 0280     ENDIF 
 0290     LET LÆNGDE=LEN(TEXT$)
 0300     IF JA=0 THEN PRINT CHR(10); CHR(10)
 0310     PRINT TEXT$
 0320     TÆLLER=TÆLLER+1
 0330   ENDWHILE 
 0340   PRINT 
 0350   IF TEXT$(1 : 1)<>"D" THEN 
 0360     PRINT 
 0370     PRINT 
 0380     PRINT "THAT WAS DONE BY THE RC-700 ON THE"; TÆLLER-2; ". QUESTION !!"
 0390   ENDIF 
 0400   PRINT 
 0410   REPEAT 
 0420     INPUT "WOULD YOU LIKE TO TRY AGAIN? : ",SVAR$
 0430     IF SVAR$="YES" THEN SVAR$="YES"
 0440     IF SVAR$="NO" THEN SVAR$="NO"
 0450   UNTIL SVAR$="YES" OR SVAR$="NO"
 0460 UNTIL SVAR$="NO"
 0470 PRINT ""
 0480 PRINT " THAT WAS THE END OF 'COUNTRY' !!"
 0490 PRINT " ================================"
 0500 PRINT ""
 0510 CLOSE F
 0520 CHAIN "MENUE"
 0530 PROC XY(XADR,YADR)
 0540   PRINT CHR(6); CHR(95+XADR-(XADR>32)*64-(XADR>64)*64); CHR(95+YADR); 
 0550 ENDPROC 
«eof»