home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9004a.d64 / mini-chart (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  999b  |  21 lines
  1. 0 POKE53280,0:POKE53281,0:DIMW(12):PRINTCHR$(14):Q=119:BA=1825
  2. 1 PRINT"[152][147]":RESTORE:FORI=1TO7:READM$:PRINT""M$:NEXT:READY$,W$,L$
  3. 2 GETT$:T=VAL(T$):IFT$=""GOTO2:DATA"[205]INI-[195][200][193][210][212]"
  4. 3 IFT<1ORT>5GOTO2:DATA"[157][157][157][157]BY [200]AUKE VON [200]AEFEN","1. [196]ATEN"
  5. 4 ONTGOTO5,7,9,11:END:DATA"2. [211]PEICHERN","3. [204]ADEN","4. [196]IAGRAMM","5. [197]NDE"
  6. 5 INPUT"[147][206]AME: ";N$:PRINT"":FORI=1TO12:PRINT""I"[157]. [215]ERT: ";:INPUTW(I)
  7. 6 NEXT:INPUT"10 [197]INH. = ";E:INPUT"[197]INHEIT: ";E$:GOTO1
  8. 7 PRINTY$;W$:INPUT"[198]ILENAME: ";F$:OPEN1,8,2,F$+",S,W"
  9. 8 PRINT#1,N$:PRINT#1,E:PRINT#1,E$:FORI=1TO12:PRINT#1,W(I):NEXT:CLOSE1:GOTO1
  10. 9 PRINTY$;L$:INPUT"[198]ILENAME: ";F$:OPEN1,8,2,F$+",S,R"
  11. 10 INPUT#1,N$:INPUT#1,E:INPUT#1,E$:FORI=1TO12:INPUT#1,W(I):NEXT:CLOSE1:GOTO1
  12. 11 PRINT"[147]";:M=E/10:L=160:C=40:R=54272:Z=115:X=1067:V=1827:H=1867:FORI=HTO1903
  13. 12 POKEI,Q:NEXT:FORI=XTOVSTEPC:POKEI,Z:NEXT:FORI=1TO12:B=BA+3*I:IFW(I)<=0GOTO15
  14. 13 FORJ=1TO2*W(I)/M:POKEB-C+1,L:POKEB-C+2,L:POKER+B-C+2,11:DATA"[147]  [205][207][196][213][211]: "
  15. 14 POKEB,L:POKEB+1,L:B=B-C:NEXT:POKER+B+1,11:DATA"[211]PEICHERN","[204]ADEN"
  16. 15 NEXT:FORI=1TO(C-LEN(N$))/2:PRINT" ";:NEXT:PRINTN$:FORI=10TO1STEP-1
  17. 16 PRINTI;"":NEXT:PRINT"    ";:FORI=1TO12:PRINTI;:IFI>8THENPRINT"[157]";
  18. 17 NEXT:PRINT"   10 [197]INHEITEN ENTSPRECHEN"E;E$""
  19. 18 GETA$:IFA$=""GOTO18
  20. 19 GOTO1
  21.