1 REM Ins{nt av 3528 10 REM *** RECSKAP *** 11 REM 12 REM J|rgen Gustavsson 83-08-06 13 REM Tel 08/747 94 03 14 REM MASKINLIGAN 15 REM 16 REM Medlem nr 3528 17 REM 18 REM L[S GLIPP.INF 19 REM 20 REM PROGRAMMET KR[VER SKIVMINNE 21 REM PROGRAMMET SKAPAR EN REKORDFIL F\R 22 REM LAGRING AV SPELREKORD. 23 REM MODIFIERA SPELET GENOM ATT 24 REM MERGA MED SCORESUB.GAM 25 REM K\R RECSKAP OCH ROA DIG SEN. 26 REM 27 DIM S$(16%)=5%,T$(16%)=5%,S(16%),T(16%) 28 B$=SPACE$(39) : S(16)=0% : S$(16)='' : T(16)=0% : T$(16)='' 29 ; CHR$(12) : ONERRORGOTO 29 30 ; "PROGRAMMET SKAPAR ELLER OMDATERAR" 31 ; "EN FIL F\R LAGRING AV SPELREKORD." 32 ; : ; "VAD [R NAMNET P] FILEN"; 33 INPUT N$ 34 REM 35 REM *** MENY *** 36 REM 37 ; CUR(10,10)'DU KAN V[LJA MELLAN:' 38 ; CUR(13,3)'1. T\MMA ELLER SKAPA EN NY TOM FIL.' 39 ; CUR(15,3)'2. [NDRA ELLER TA BORT ENSTAKA V[RDEN' 40 ; CUR(17,3)'3. SKRIVA OM HELA FILEN.' 41 ; CUR(21,10)'VAD VILL DU G\RA'; : INPUT A% 42 ON A% GOTO 46,57,104 43 REM 44 REM *** NOLLST[LLNING *** 45 REM 46 ; CHR$(12) : ; "SKALL FILEN VARA NOLLST[LLD? (J/N)"; : GET A$ 47 IF A$="J" OR A$="j" 48 ELSE 29 48 ; : ; : ; "ALLA FILENS REKORD S[TTES =0. [R DETTA OK? (J/N)"; : GET A$ 49 IF A$="J" OR A$="j" 50 ELSE 10 50 FOR I%=1% TO 15% 51 S$(I%)="---" : T$(I%)="---" 52 NEXT I% 53 GOTO 115 54 REM 55 REM *** [NDRA ELLER TA BORT *** 56 REM 57 OPEN N$ ASFILE 5 58 FOR I%=1% TO 15% 59 INPUT #5,S(I%),S$(I%),T(I%),T$(I%) 60 NEXT I% 61 CLOSE 5 62 ; CHR$(12);' FILEN "';N$;'" SER UT S] H[R' 63 ; CUR(1%,0%);" Personal Alltime " : ; " -------- -------" 64 ; CUR(3%,0%);" PO[NG NAMN PO[NG NAMN" 65 FOR I%=1% TO 15% 66 ; CUR(4%+I%,0%);I%;'.';CUR(4%+I%,4%);S(I%);CUR(4%+I%,11%);S$(I%) 67 ; CUR(4%+I%,21%);I%+15%;'. ';T(I%);CUR(4%+I%,33%);T$(I%) 68 NEXT I% 69 REM 70 REM *** BORTTAGNING *** 71 REM 72 ; CUR(20%,0%);B$ 73 ; CUR(20%,0%);'SKALL N]GOT V[RDE TAGAS BORT '; : GET A$ 74 IF A$<>'J' AND A$<>'j' 90 75 ; CUR(21%,0%);B$ 76 ; CUR(21%,0%);'VILKET RESULTAT SKALL BORT? NR'; : INPUT A% 77 IF A%>15% 83 78 FOR I%=A% TO 15% 79 S(I%)=S(I%+1%) : S$(I%)=S$(I%+1%) 80 NEXT I% 81 S(15%)=0 : S$(15%)='---' 82 GOTO 62 83 FOR I%=A%-15% TO 15% 84 T(I%)=T(I%+1%) : T$(I%)=T$(I%+1%) 85 NEXT I% : T(15%)=0 : T$(15%)='---' 86 GOTO 62 87 REM 88 REM *** [NDRING *** 89 REM 90 ; CUR(20%,0%);B$ 91 ; CUR(20%,0%);'SKALL N]GOT V[RDE [NDRAS '; : GET A$ 92 IF A$<>'J' AND A$<>'j' 115 93 ; CUR(21%,0%);'VILKET RESULTAT SKALL [NDRAS? NR'; : INPUT A% 94 IF A%>15% 98 95 ; 'VAD SKALL ST] I ST[LLET F\R';S(A%); : INPUT S(A%) 96 ; 'VAD SKALL ST] I ST[LLET F\R';S$(A%); : INPUT S$(A%) 97 GOTO 62 98 ; 'VAD SKALL ST] I ST[LLET F\R';T(A%-15%); : INPUT T(A%-15%) 99 ; 'VAD SKALL ST] I ST[LLET F\R';T$(A%-15%); : INPUT T$(A%-15%) 100 GOTO 62 101 REM 102 REM *** OMSKRIVNING AV HEL FIL *** 103 REM 104 ; CHR$(12);CUR(6,0)"MATA IN MED H\GSTA PO[NG F\RST." 105 ; "Personal Alltime " : ; "------- --------" 106 ; "PO[NG NAMN PO[NG NAMN" 107 FOR I%=1% TO 15% 108 ; CUR(8%+I%,0%); : INPUT S(I%) : ; CUR(8%+I%,7%); : INPUTLINE S$(I%) 109 S$(I%)=LEFT$(S$(I%),LEN(S$(I%))-2%) 110 NEXT I% 111 FOR I%=1% TO 15% 112 ; CUR(8%+I%,21%); : INPUT T(I%) : ; CUR(8%+I%,28%); : INPUTLINE T$(I%) 113 T$(I%)=LEFT$(T$(I%),LEN(T$(I%))-2%) 114 NEXT I% 115 PREPARE N$ ASFILE 5 116 FOR I%=1% TO 15% : ; #5,S(I%) : ; #5,S$(I%) : ; #5,T(I%) : ; #5,T$(I%) : NEXT I% 117 CLOSE 5 118 ; : ; "TACK F\R IDAG" 119 END